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SUMMARY 


A computer program has been written which provides a comprehensive data base on 
NACA 16-series airfoils. The geometry covered in the program is limited to cambers 
for a design-lift coefficient from 0.0 to 0.7 and thickness ratios from 4 to 21 per- 
cent. The data include Mach numbers from 0.3 to 1.6, angles of attack from -4 to 
8 degrees, and lift coefficients from 0.0 to 0.8. Extrapolation is used to obtain 
data from Mach numbers, angles of attack’, and lift coefficients beyond those for 
which data were available. A subroutine to adjust the lift and drag coefficients 
beyond stall is included. The complete listing of the program is provided in the 
Appendix. 


INTRODUCTION 

After decades of neglect, propeller research in the United States has been reac- 
tivated due to the energy shortage. Most of the general aviation aircraft use pro- 
peller designs based on the technology that has not changed significantly since the 
1940 ' s and early 1950's. Propeller compressibility losses have caused current 
propeller-powered general aviation aircraft to be limited to maximum cruise speeds 
near Mach 0.5. The desire for improvements in swirl recovery and noise control 
required improved technology. Recent technological developments performed as part of 
NASA's Advanced Turboprop Project offer the potential of extending the limit to at 
least Mach 0.8. For advanced high-speed turboprop powered aircraft, compared to 
equivalent technology high-bypass-ratio turbofans, studies have shown that a large 
performance advantage may be obtained at cruise speeds up to Mach 0.8. These advan- 
tages could result in lower acquisition and reduced life cycle cost, large fuel 
savings, improved range, swirl recovery, and noise control, or other benefits for 
both future civil and military aircraft. 

Airfoil research has become a major factor in the propeller performance research. 
The NACA 16-series airfoil sections are low-drag, high-critical -speed airfoils that 
could be effective in the advanced turboprop designs currently under study. These 
airfoil sections, which have proven useful for propellers, have relatively sharp 
leading and trailing edges, and have maximum thickness at mid-chord station. They 
are designed to work efficiently at high speed by delaying compressibility stall. 

A comprehensive and easily accessible data bank on the aerodynamic charac- 
teristics of 16-series sections was needed to facilitate the studies performed. A 
literature survey revealed that data over a large range of cambers, thicknesses, 
angles of attack, and Mach numbers were not available, so a computer program was 
written to provide the needed data base. The requirements for the program included 
complete flexibility of input conditions, section Mach numbers to at least 1.1, easy 
accessibility, low-cost operation, and the ability to interpolate for nonstandard 
geometry. To fulfill these requirements, the program was written in a table 
"look-up" format, so that its only limitations would be the range of its data and the 
accuracy of the linear interpolation. The most comprehensive source for the aerody- 
namic characteristics of 16-series airfoils was reference 1, and these values make up 
the program's data declarations. 


t&y- /// yj 


4 ^ 



The present paper discusses the use and limitations of the program. The program 
will shortly be made available to outside uses through COSMIC. Langley Research 
Center uses will find it as the common permanent file system under user number 624435N, 
with the file name NACA16. 


DISCUSSION 

A preliminary program was written using values for only the 16-5XX airfoils with 
thickness ratios from 4 to 18 percent, nine Mach numbers from 0.3 to 1.3, and seven 
angles of attack from -4.0 to 8 degrees. A linear shift was used to account for 
other cambers. Extensive computation showed that the program's results were not as 
accurate as desired. By expanding the data tables in the program, better accuracy 
could be attained. More points on each curve were entered and more sections were 
represented. The capability to calculate the drag coefficient was added. 

Digitizing equipment was used to enter the values from the graphic form of 
reference 1 into the data tables. This method was accurate and efficient, enabling 
many points to be entered in a short time directly from the curve, and allowing 
complete freedom in representing the curve (i.e., the values f(x) could be entered 
for any x). A total of 100 graphs were digitized. The values were then used to 
generate tables corresponding to a standard set of Mach numbers; 26 values of Mach 
number from .3 to 1.6 are used. These are used as the data declaration in the 
subroutine and have the following format: 

CLXXX (row, column) = a function of angle of attack (row), and Mach number 

(column) 

CDXXX (row, column) = a function of lift coefficient (row), and Mach number 

(column) 

ALPXXX (row, column) = a function of lift coefficient (row), and Mach number 

(column) 

where the first X in XXX notation represents the design lift coefficient in tenths 
(i.e., 7 = 0.7 design-lift coefficient) and the remaining two XX in this notion 
represents the airfoil thickness-to-chord ratio (thus, 706 signifies a 0.7 design- 
lift coefficient and a 0.06 thickness-to-chord ratio). The values for the lift coef- 
ficient were tabulated for selected angles of attack and Mach number and the values 
for drag coefficient and angle of attack (ALP) were tabulated for selected values of 
lift coefficient and Mach number in the above-mentioned data declarations. 

The improvement achieved by augmenting the data is illustrated in figures 1 
through 6. Figure 1 shows the points that made up one of the tables in the first 
version of the program. Figure 2 shows the points that were digitized, and figure 3 
presents the points that make up the data table in the upgraded version. In figure 4, 
the improved representation is demonstrated; it compares the curves represented by 
the data tables in each version of the program. Clearly, the addition of more data 
points improved the accuracy of the interpolation. A graph of the points in a repre- 
sentative drag coefficient table is presented in figure 5, and a similar represen- 
tation of an angl e-of-attack curve is shown in figure 6. 

The main program controls the input and output. Figure 7 provides a brief flow- 
chart of the program. All of the table look-ups and interpolations are done in the 
subroutines. The subroutine IBI performs the table look-up and returns the value for 
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the desired aerodynamic characteristic. A linear interpolation between thickness 
ratios occurs in the subroutines AEROO, AER01, AER02....AER0X (where X represents the 
camber of the airfoil). Subroutine CAMBER interpolates between design-lift coef- 
ficients. Warning messages are printed if the data limits have been exceeded. 

An additional subroutine (COMPUT) was written to account for the nonlinear behav- 
ior of lift coefficient beyond the stall angle. The method uses the graphs of 
reference 1, and the procedure is a "table look-up" using first-order interpolation. 
Essentially, the lift coefficient becomes a function of Reynolds number as well as of 
Mach number, angle of attack, and geometry. The drag coefficient is also adjusted in 
this subroutine. 


LIMITATIONS AND ERROR 

The primary limitation in the use of the program arises from the spareness of 
data. The geometry for which the program can be used is limited to cambers for 
design lift coefficients up to 0.7 and thickness ratios between 4 and 21 percent. 

Data were unavailable for Mach numbers below .3 and above 1.6; angles of attack below 
-4 degrees and above 8 degrees, and lift coefficients (for drag calculations) below 
0.0 and above 0.8; however, the program is capable of extrapolating for conditions 
beyond these limits and of modifying the coefficients at angles of attack beyond 
stall. No wind-tunnel data at these conditions were available for comparison, so it 
is difficult to estimate the accuracy of the program's output. 

Some studies were done to evaluate the program in the range for which data were 
available. First, the program was compared with the graphs of reference 1 from which 
the program's data were derived. The average error was less than 5 percent for both 
low and transonic Mach numbers demonstrating that the errors due to linear inter- 
polation and digitizing are minimal. Next, two sources of wind-tunnel data (refs. 2 
and 3) were found and compared to each other. Some discrepancies were found. The 
error ranged from 0 to 68 percent, with the average at approximately 12 percent. The 
program produced results close to the data from reference 2, particularly at low 
speed. The lift coefficient was more accurate than the drag coefficient. The error 
was significantly higher in the comparison between the program and reference 3. The 
only trend observed in this study was that the drag coefficient was markedly more 
accurate at low speed while the lift coefficient was more accurate at transonic 
speed. 


CONCLUDING REMARKS 

A computer program has been written which provides a comprehensive data base on 
NACA 16-series airfoils. The geometry covered in the program is limited to cambers 
for a design-lift coefficient from 0.0 to 0.7 and thickness ratios from 4 to 21 per- 
cent. The data include Mach numbers from 0.3 to 1.6, angles of attack from -4 to 
8 degrees, and lift coefficients from 0.0 to 0.8. Extrapolation is used to obtain 
data from Mach numbers, angles of attack, and lift coefficients beyond those for 
which data were available. A subroutine to adjust the lift and drag coefficients 
beyond stall is included. The program can be used for airfoils with camber for a 
design lift coeffient up to 0.7, with thickness ratios from 4 to 21 percent, and for 
Mach numbers from 0.3 to 1.6. In comparison with wind-tunnel data, it has been shown 
to give reasonable results. 
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PROGRAM AIRFOIL (INPUT, output* TAPE3=INPUT»TAPE6=0UTPUT) 

the subroutines in this program calculate the aerodynamic 

CHARACTERISTICS OF NASA 16-SERIES AIRFOILS. ALL VALUES ARE 
OBTAINED THROUGH INTERPOLATIONS from graphs drawn by henry V. 
BORST (SEE SOURCE). SUBROUTINE IBI INTERPOLATES BETWEEN MACH 

NUMBERS and alphas/cl* s; subroutine aerox interpolates between 

THICKNESS RATIOS* SUBROUTINE CAMBER INTERPOLATES BETWEEN 
CAMBERS. SUBROUTINE COMPUT IS USEO TO ADJUST THE CD IF THE 

angle of attack is beyond stall. 


ALL LIMITATIONS IN THIS PROGRAM ARE, DUE TO THE LACK OF DATA. 

THE LIMITING CASES ARE: 

DESIGN CL: 0.0 TO 0.7 

THICKNESS RATIO* (FOR 0.0 <= CLDES <= 0.5) 4% TO 2l% 

(FOR 0.5 < CLDES < 0.6) 4% TO 15% 

(FOR 0.6 < CLDES <= 0.7) 6% TO 12% 

MACH NUMBER: .3 TO 1.6 (BUT EXTRAPOLATION CAN BE PERFORMED) 

ANGLE OF ATTACK (PERFORMANCE) : -4.0 TO 8 (BUT EXTRAPOLATION CAN 

BE PERFORMED) 

CL(DESIGN) : 0.0 TO 0.8 (BUT EXTRAPOLATION CAN BE PERFORMED) 

WARNING MESSAGES WILL BE PRINTED IF THESE VALUES ARE EXCEEDED. 

THE PROGRAM HAS BOTH PERFORMANCE ANALYSIS AND DESIGN CAPABILITIES. 
FOR THE FORMER LtT IKEY=1» AND FOR THE LATTER LET IKEY=2. 


IF IKEY=1 INPUT MUST BE: 

MAcH NUMBER, angle of ATTACK, 


THICKNESS RATIO* DESIGN CL, ALTITUDE* 


IF IKEY=2 INPUT MUST BE: 

mach number, cl» thickness ratio, design cl* altitude* 


COR *6 D 


source 

sand* EDWARD* DOUGLAS A. ELLIOT* JR.* AND HENRY BORST* "USAAMRDL 
TECHNICAL REPORT 73-34C SUMMARY OF PROPELLER DESIGN 

procedures and data" volume hi hub actuator, and control 

DESIGN, FORT EUSTIS, VA., NOV. 1973 


DIMENSION XM(7) ,AA(5) , CLDES (5) *TR(2) 

DATA (XM (I), 1=1*7)/. 2*. 5, .7, .8, .9,1. 0*1.1/ 
DATA (CLDES (I ) ♦ I = 1 » 5 ) / . 3, . 35 * .4 * . 45 * .5/ 
DATA ( A A ( I ) ,1=1,5) /4 ,8, 10*12*16/ 

DAT A ( TR ( I ) ,1 = 1 *2)/. 06*. 12/ 

DATA NUMACH,NUMCLD*NUMTR* NUMAA/7 ,5,2*5/ 
COR= • 1 
IKEY=1 
D=1 0 • 

ALT=10000. 

DO 50 1 = 1* NUMCLD 
DO 40 J=1»NUMTR 
DO 30 k=i,numaa 
DO 20 L=1 , NUMACH 
75 WR I TE ( 6 , 1 50 ) 

WRITE (6* 150) 


COR,«. D 
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CALL CAMBER (CLDES< I) ♦ TR ( J ) » A A ( K ) « XM (L) ,CL»CD»XLD* IKEY» ALT? COR*D) 

CH0RD=C0R*D/2 

CALL ATMOS (ALT, RHO*SOS»T) 

V=XM(L)*SOS 

XMUU= ( * IE-09) *. 31 70 *T** 1.5*734. 7/ (T+216.) 

RN=RHO*V*CHORD/XMUU 

IF(XM(L) .LT. .3 .OR. XM(L) .GT. 1.6) WRITE (6,202) XM(L) 

IF ( I KEY , EQ . 1 .AND. AA (K) .LT. -4.0 .OR. IKEY ,EQ. 1 .AND. 

& A A ( K ) .GT. 8.0) 

&WRITE (6, 203) A A ( K ) 

IF ( IKEY ,EQ. 2 .AND. CL »LT, 0.0 .OR. IKEY .EQ, 2 .AND. 

&CL .GT. 0.8) 

S.WRITE (6,208) CL 
IF (IKEY .EQ. 2) GO TO 5000 

WRITE (6, 100) HN,CLDES(I) ,TR(J) *XM(L) »AA(K) ,cl?cd?xld 
GO TO 20 

5000 WRITE(6,125) RN ,CLDES ( I ) * TR ( J ) * XM ( L ) * CL, A A (K ) » CD » XLD 
20 CONTINUE 
30 CONTINUE 
40 CONTINUE 
50 CONTINUE 

150 FORMAT ( /36H***********' tMM **'*** fl '*** <>tt ** w ****** <> * tt » 

125 FORMAT ( *OREyNOLDS NUMBER=* , E 15 . 3/*0DESIGN CL=*?F5.3» 

THICKNESS RATIO=*, F5.3/*0MACH NUMBER=* * E6 . 3 * 
cl=*»F6.3/*0ALPHA=*,F6.3?* CD=*,F6.4«* L/D=*?F6.2) 

100 FORMAT (*OREYNOLDS NUMBER=*»E15,3/»0DESIGN CL=*?F5.3, 

thickness Ratio=*,f5.3/*omach number=**f6.3»* alpha=*?F7.3/ 
&*0CL=*?F6.3,* C0=*?F6.4?* L/D=*?F7.2/) 

202 FORMAT (*0MAC h =*?F6, 3, * IS OUT OF RANGE OF DATA. 

&«/* EXTRAPOLATION HAS BEEN PERFORMED*) 

203 format (*oalp h a=*»f5. 2 ,* is out of range of data. 

$,*/* extrapolation has been performed.*) 

20a format (*ocl=**F 6. 4,* is out of range of data. 

&*/* EXTRAPOLATION has been performed.*) 
end 


SUBROUTINE CAMBER (CLDES,TR,AA,XM,CL,CD,XLD, I KEY, alt ,COR»D) 

c 

C THIS SUBROUTINE USES LINEAR INTERPOLATION BETWEEN CAMBERS 
C TO OBTAIN THE AERODYNAMIC CHARACTERISTICS OF A 16-SERIES AIRFOIL. 
C IT USES THE SUBROUTINES AEROO , AEROl , AER02? • • .AER07. 

C 

C THE RANGE OF DESIGN CL'S FOR ACCURATE RETURNS IS FROM 0 TO .7. 

C 

C DESCRIPTION OF VARIABLES: 

C CLOES=OESIGN LIFT COEFFICIENT 

e TR=MAXlMUM THICKNESS-TO-CHORO RATIO 

C AA=ANGLE OF ATTACK AT BLADE ELEMENT 

c xm=mach number at blade element 

C CL=SECT I ON LIFT COEFFICIENT 

C CD=SECTION DRAG COEFFICIENT 

C XLD=LIFT TO drag ratio 

C IkEY=PARAMETER WHICH INDICATES WHETHER PERFORMANCE OR DESIGN 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


MODE IS OESIRED. 


IF IKEY=1» program runs I 
INPUT IS ANGLE of ATTACKf 


N PERFORMANCE MODE. 

MACH NUMBER, DESIGN CL AND 


THICKNESS RATIO. 

OUTPUT IS CL, CO, AND L/O. 


jp ikEY=2* PROGRAM RUNS IN DESIGN MODE. 

INPUT IS CL* MACH NUMBER* DESIGN CL* AND 

thickness RATIO . /r . 

OUTPUT IS SECTION ANGLE OF ATTACK* CD* AND L/D. 

alt=altitude 

COR = CHORD/RADIljS OF PROP BLADE 
D=DIAMETER OF PROPELLER 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


GO TO 15 
•AND. CLDES 


DIMENSION I ORDER (2) * IPT (2) 
IORDER< 1) =I0RDER(2) =1 
IPT ( 1 ) =-l 

IF (IKEY .F-Q. 2) GO TO 2000 
(CLDES .LT. 0.0) 

(CLDES .GE. 0.0 

.Gt. 

. ge . 

. Gt . 

. Gt . 

.Gt. 

. ge . 

. Gt 


(CLDES 

(CLDES 

(CLDES 

(CLDES 

(CLDES 

(CLDES 

(CLDES 


0.1 

0.2 

0.3 

0.4 

0.5 

0.6 

0.7) 


.AND. 
.AMD. 
.AND. 
.AND. 
.AND. 
.AND. 
GO TO 


• LT • 
.LT. 
.LT. 

• LT . 
.LT. 
.LT. 
.LT. 


0 . 1 ) 

0 . 2 ) 

0.3) 

0.4) 

0.5) 

0 . 6 ) 

0.7) 


GO 

GO 

60 

GO 

60 

GO 

GO 


TO 

TO 

TO 

TO 

TO 

TO 

TO 


25 

35 

46 

56 

65 

75 

85 


CLDES 
CLDES 
CLDES 
CLOES 
CLDES 
CLDES 

IS c ALL° AEROO ( XtU »CL*CD*XM,AAtlKEY*TR* CLDES , ALT*COR*D) 

176 F0RmA'M* 1 DEsIGN^Cl = **F5.2»* IS OUT OF RANGE OF DATA.*/ 
S.* VALUES FOR CLDES = 0.0 HAVE BEEN RETURNED.*) 

25 CALL°AERO0 (XLD, CL* CD* XM,AA, IKEY, TR* CLDES. ALT* COR* D) 

CL0=CL 

CD0=CD 

Jal^aerokxld.cl.co.xm.aa.ikey.tr.cldes.alt.cor.D) 

CL1=CL 

CL=CL0+ ( C|_l — CLO ) * ( (CLDES-0.0)/! .1-0.0) ) 

CD=CD0 ♦ (CD1-CD0) * ( (CLDES-0.0) / (.1-0.0)) 

35 CALL°AER 01 (XLD, CL, CD, XM,AA, IKEY.TR, CLOES, ALT* COR. D) 

CL 1 =CL 
CD1=CD 

CALL AER02(XL0,CL.CD*XM,AA,IKEY,TR.CLDES,ALT.C0R*D) 

CL2=CL 

CD2=CD 

CL = CL1 ♦ (CL2-CL1 ) * ( ( CLDES-. 1 ) / ( *2- • 1 ) ) 

CD=CD1 ♦ ( CD2-CD1 ) * ( ( CLDES-. I ) / ( • 2- . 1 ) > 

45 CALL°AER 02 (XLD.CL* CO, XM,AA* IKEY, TR* CLDES .ALT »C0R*D) 


6 



CL2=CL 

CD2=CD 

CALL 1 AER03 ( XLO ,CL» CO , XM» A A * I KEY* TR » CLDES , ALT ,COR»D) 
CL3=CL 

C03=CD , , o 

CL=CL2*(CL3-CL2)*( (CLDES-.2)/(.3-.2) ) 

CD=CD2+ (C03-CD2)*( (CLDES-. 2) /< .3-. 2) ) 

55 CALL AER03 ( XLD,CL» CD»XM, AA, IKEYtTR »CLDES, ALT *COR*D) 

CL3=CL 

CD3=CD 

CALL AER04 (XLD,CL»CD»XM, AA» I KEY » TR » CLDES » ALT *COR*D) 

CL4=CL 

CD4=CD 

CL=CL3+ (CL4-CL3) <M (CLDES-. 3) / ( .4-. 3) ) 

C0=C03' 4- ( CD4-CD3) * ( (CLDES-. 3) /(.*-. 3) ) 

65 CALL°AER04 ( XLD , CL ♦ CD ♦ XM, A A , I KEY , TR ♦ CLDES ♦ ALT tCORtD) 
CL4=CL 
C04=C0 

CALL 1 AER05 (XLD»CL»CD»XM»AA» IKEY , TR * CLDES * ALT* COR *D) 

CL5=CL 

CD5=CD 

CL=CL4 + (CL5-CL4) * ( (CLDES-. 4) / ( .5-. 4) ) 
CD=CD4+(CD5-CD4)*( (CLDES-.4)/(»5-.4) ) 

GO TO 300 _ 

75 CALL AER05 (XLD»CL»CO*XM»AA, IKEY*TR»CLDES» ALTtCORtD) 

CL5=CL 

CD5=C0 

CALL AER06 (XLD, CL,CO» XM, AA» IKEY , TR , CLDES » ALT * COR ♦ D ) 

CL6=CL 

CD6=CD 

CL=CL5+(CL6-CL5)*( ( CL0ES-.5) / ( .6-. 5) ) 

CD=CD5* (CD6-CD5) * ( ( CLDES-. 5) / ( .6-. 5) ) 

GO TO 300 „ 

85 CALL AER06 (XLO» CL*CD*XM» AAf IKEY, TR * CLDES * ALT » COR * D) 

CL6=CL 

CD6=CD 

CALL 1 AER07 (XLD,CL»CD*XM,AA» IKEY , TR * CLDES » ALT »COR»D) 


CL7=CL 

CD7=CD 

CL=CL6-*-(CL7-CL6)*( (CLDES-.6) / ( .7-.6) ) 
CD=CD6 + ( CD7-C06 ) * ( (CLDES-. 6) / ( .7-. 6) ) 


GO TO JOO 

95 CALL AER 07 (XLO, CL, CD, XM,AA, IKEY, TR, CLDES, ALT. COR*D) 

IF (CLDES .GT. 0.7) WRITE(6,175) CLDES 
175 FORMAT (* DESIGN CL=*»F5.3»* IS OUT OF RANGE OF DATA. / 
VALUES FOR CLDES=.7 HAVE BEEN RETURNED.*) 


GO TO 300 


2000 CONTINUE 
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(CLDES 

.lt. 

o.o) 

GO TO 

16 

(CLDES 

• G t • 

0.0 

.AND. 

CLDES .LT. 

(CLDES 

• G t • 

0.1 

.AND. 

CLDES .LT. 

(CLDES 

• Gt • 

0.2 

.AND. 

CLDES .LT. 

(CLDES 

• Gt • 

0.3 

.AND. 

cldes .lt. 

(CLDES 

• Gt • 

0.4 

.AND. 

CLDES .LT. 

(CLDES 

• Gt • 

0.5 

.AND. 

cldes .lt. 

(CLDES 

• Gt « 

0.6 

.AND. 

CLDES .LT. 


0 . 1 ) 

0 . 2 ) 

0.3) 

0.4) 

0.5) 

0 . 6 ) 

0.7) 


GO 

GO 

GO 

GO 

GO 

GO 

GO 


TO 

TO 

TO 

TO 

TO 

TO 

TO 


2b 

36 

46 

56 

66 

76 

86 


16 

178 

26 


36 


46 


56 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 

IF (CLOES ,GE. 0.7) GO TO 96 

CALL AEROO(XLD,CL»CDtXM»AA»IKEYtTR»CLDES*ALT»COR*D) 

“S^.i'oIsION^L =».FS.2,*'IS OUT OF RANGE OF DATA.*/ 
THE VALUES FOR CLDES = 0.0 HAVE BEEN RETURNED. ) 

CALL AEROO (XLD,CL»CD»XM,AA,IKEY»TR»CLDES. ALT * COR »D) 

A A 0 = A A 
CD0=CD 

CALL AEROl ( XLD , CL ♦ CD ♦ XM» AA » I KEY » TR t CLDES ♦ ALT * COR f D ) 

AA1=AA 

CD1=CD 

AA=AA0+(AA1-AA0)M ( CLDES- 0 ,0)/(.l-0.0) ) 
CD=CD0*(CD1-CU0)*( (CL DES-0,0)/(. 1-0.0) ) 

CALL AEROl ( XLD , CL * CD , XM » AA , I KEY * TR ♦ CLDES * ALT * COR * D ) 

AA1=AA 

CD1=CD 

CALL AER02 ( XLD . CL » CD , XM » AA , IKE Y * TR ♦ CLDES ♦ ALT ♦ COR * D ) 
AA2=AA 

CD2=CD , , . 

AA=AAl* (AA2-AA1 )* ( (CLOES-.l )/ ( .2-. 1 ) ) 

CD=CD1 ♦ ( CD2-0D 1 ) * ( (CLOES-.l ) / ( .2-. 1 ) > 

CALL AERO 2 (XLO,CL*CD«XM»AAtIKEY»TR»CLDEStALT*COR»D) 

AA2=AA 

CD2=CD 

CALL AER03(XLD,CL.CD,XM,AA.IKEY,TR.CLDES»ALT.C0R.D> 

AA3= AA 

CD3=CD , , 

A a= AA2 + ( A A3-A A2 ) * ( ( CLDES- .2 ) / ( • 3- • 2 ) ) 

CD=CD2* (CD3-002) * ( ( CLDES- . 2) / ( • 3- • 2 ) ) 

CALL AER03 (XLD, CL ♦ CD. XM.AA.IKEY.TR .CLDES . ALT .COR *D) 
AA3= AA 
CD3=CD 

CALL 1 AER04(XLD,CL.CD.XM,AA. IKEY ♦ TR * CLDES. ALT . COR » D) 
AA4=AA 

CD4=CD „ , 

AA=aA3*(AA4-AA3)*( (CLDES-. 3) / ( .4-. 3) ) 

C0=CD3«- (CD4-CU3)* ( (CLDES-. 3)/ (.4-. 3) ) 

GO TO 300 
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CALL AER04(XLU,CL»CD,XM,AA,IKEY»TR,CLDES,ALT.C0R*D) 
AA4=A A 
CD4=CD 
IPT { 1 ) = — 1 

call AER05 (XLO, CL»CD»XM»AA,IKEYf TR,CLDES»ALT»COR*D) 
AA5=AA 
C05=CD 

AA=AA4*(AA5-AA4)*( (CLDES-.4)/(.5-,4) ) 

CD=CD4MCD5-CD4)*( (CLDES-.4) /( .5-. 4) ) 

GO TO 300 

76 CALL AER05(XLU t CL»CD,XM,AA,IKEY,TR,CLDES.ALT,C0R.D> 
AA5=AA 
CD5=CD 
IPT(1)=-1 

CALL AERO6(XLD,CL*C0»XM,AA, IKEY»TR»CLDES»ALT»COR»0) 

AA6=AA 

CD6=CD 

AA=AA5*(AA6-AA5)*( ( CLDES- . 5 ) / ( . 6- . 5 ) ) 

CD=CD5MCD6-CU5)*< (CLDES-.5) / ( .6-. 5) ) 

GO TO 300 

86 CALL AER06(XL0 f CLtCDtXM,AA,IKEY,TR*CLDES»ALT.C0Rt0) 
AA6=AA 
CD6=CD 
IPT ( 1 ) =- 1 

call AER07 (XLD,CL,CD,XM, AA« I KE Y , TR ♦ CLDES , ALT ♦ COR .D ) 

A A7=AA 
CD7=CD 

AA=AA6* (AA7-AA6) * ( (CLDES-. 6) / ( .7-. 6) ) 

CD=CD6* (CD7-CU6)*< (CLDES-. 6) / ( .6-. 7) ) 

GO TO 300 

96 CALL AER07 (XLO,CL,CD,XM, AA, IKEY.TR.CLDES, ALT.COR.D) 

IF (CLDES .GT. 0.7) WR I TE ( 6 ♦ 1 79 ) CLDES 
179 FORMAT ( * DESIGN CL =*.F5.2,* IS OUT OF RANGE OF DATA.*/ 
&* THE VALUES FOR CLDES = .7 HAVE BEEN RETURNED.*) 

300 XLD=CL/CD 
RETURN 
END 


SUBROUTINE AEROO ( XLO , CL . CD . XM. AA , IKE Y, TR . CLOES * ALT. COR • 0) 


THIS SUBROUTINE IS DESIGNED TO COMPUTE THE AIRFOIL 
CHARACTERISTICS FOR A 16 SERIES AIRFOIL WITH A GIVEN CAMBER. 

THIS SUBROUTINE RELATES CL . CD. CL/CD . MACH . T/C . ANO ALPHA. 

IT REPRESENTS THE DATA OF A 16-OXX AIRFOIL. 

XM=RELATIVE MACH NO. AT BLADE ELEMENT 
AA=ANGLE OF ATTACK IN DEGREES 
IKEYl: CL=CL(MACH. ALPHA, T/C) 

: CD=CD(MACH.CL.T/C) 

:XLD=CL/CD 

IKEY2: ALPHA=ALPHA (MACH, CL. T/C) 



o o o o n o o 


: CD=CD (MACHtCL»T/C) 
JXLD=CL/CO 
TR=T/C 


1 - 

-.395, ■ 

-.392, - 

.390, 

1 -.384, ■ 

-.373* - 

.357, 

1 • 

-.348, - 

-.343* - 

.340, 

2 -.193* 

-.190* - 

.188, 

2 ■ 

-.154, 

-.138, - 

.121, 

2 -.125, 

-.120* - 

.117, 

3 

.010* 

.013* 

.024, 

3 

.097* 

.109* 

.109, 

3 

.092* 

.100, 

.108, 

4 

.206* 

.22?* 

.251, 

4 

.323* 

.327* 

.323, 

4 

.300* 

.310, 

.317, 

DATA( (CL004 ( 1 * J) 

, J = 1 , i 

5 

.419* 

.439, 

• 464 , 

5 

.548, 

.541* 

.535, 

5 

,515* 

.522* 

.528, 

6 

.612* 

.659, 

.722, 

6 

.79^, 

.784* 

.774, 

6 

.747* 

.761* 

.772, 

7 

.773* 

.817, 

.876, 

7 

.906* 

.894, 

.883, 

7 

.860* 

.871* 

.877, 

DATA ( (CL006(I*J) ♦ J=l» 

1 

-.399, 

-.400, ■ 

-.401, 

1 

-.396* 

-.394, ■ 

-.391 , 

1 

-.410, 

-.399, 

-.393, 

2 

-.197, 

-.201* 

-.203, 

2 

-.175* 

-.169, 

-.162, 

2 

-.167, 

-.168, 

-.173, 

3 

• 002* 

.000, 

-.001, 

3 

.052* 

• 066 , 

.080 1 

3 

.062* 

.072, 

.074, 

4 

.192, 

.202, 

.219, 

4 

.283* 

.292, 

.297, 

4 

.280* 

.291, 

• 292' 

DATA ( (CL006 ( I * J 

l) , J=1 

5 

.378, 

.400, 

.424 

5 

.527, 

.52*» 

.521 

5 

.498* 

.514, 

/508 

6 

.573* 

• 609 , 

.665 


. 485 , 

.528, 

.527, 

.762, 

.764, 

.776, 


.394, 

.351, 

.168, 

.130, 

.084, 

. 088 , 

.313, 

.298, 


.552, 

.506, 

.804, 

.739, 

.917, 

.850, 


.399, 
.421 , 

.180, 

-.174, 

.041, 
.058 , 

.275, 

. 268 , 


.516, 

.482, 

.760, 
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6 

.743* 

.725* 

.706* 

6 

.678* 

.685* 

• 684 * 

7 

.766* 

.786, 

.804, 

7 

.858* 

.841* 

.824* 

7 

.791* 

.798* 

.793* 

D AT A ( (CLG 

1 09 ( I * J ) 

* J=l*2€ 

1 - .364 » - 

-.358* - 

.352* - 

1 -.335* - .332 » - 

••329* - 

1 -.319* -.320* -.322* - 

2 -.192* -.173* -.164* - 

2 -.137* - 

137 * —.141* * 

2 - 

-.124* ■ 

-.129* -.134* • 

3 ■ 

* • 004 * * 

-.004* 

.002, 

3 

.040* 

.049, 

.057, 

3 

• 063 » 

.057, 

.051* 

4 

.181* 

.190, 

.202* 

4 

.257* 

.264, 

.266* 

4 

.258* 

.252* 

.245* 

DATA( (CLO 09(1* J> 1*2' 

5 

.385* 

.393, 

.409, 

5 

.499* 

• 486* 

.461, 

5 

.459* 

.449* 

.438, 

6 

.558* 

.601* 

.641* 

6 

• 655* 

.630* 

• 604 * 

6 

.609* 

.596* 

.582, 

7 

.698* 

.756, 

.804* 

7 

.783, 

.749* 

.716, 

7 

.690* 

,67«* 

.666* 

OAT A ( (CL012 (I * J> ♦ J=l*2 

1 

-.400* 

-.400* 

-.401, 

1 

-.400* 

-.397, 

-.394, 

1 

-.389* 

-.390, 

-.391, 

2 

-.201* 

-.202* 

-.203, 

2 

-.195* 

-.193* 

-. 192* 

2 

-.186* 

-.188* 

-.189* 

3 

-.004* 

-.006* 

-.007, 

3 

.015* 

.015* 

.007, 

3 

.012* 

.010* 

.009, 

4 

.192* 

.192* 

.195, 

4 

.213* 

.204* 

.185, 

4 

.202* 

.195, 

.189, 

D AT A ( (CL012 ( I ♦ J) *J=l*i 

5 

.343* 

• 363 * 

.379, 

5 

.442* 

.424* 

.387* 

5 

.412* 

.397* 

.383* 

6 

.510* 

• 53^ * 

.567, 

6 

.570* 

.536* 

.495* 

6 

.529* 

.517, 

.504* 

7 

.627* 

.672* 

.715, 

7 

. 649* 

.60 1 » 

.549, 

7 

.578* 

.570* 

.562, 

DAT A ( ( CLO 15 ( I ♦ 

J) » J = 1 » 

1 

-.400* 

-.402* 

-.402, 

1 

-.384* 

— .386 * 

-.401* 

1 

-.387, 

-.388* 

-.389, 


.686, 

.667* 

.651* 

,661, 

• 638* 

.505, 

.846, 

.887* 

.906, 

.807, 

.789* 

.768, 

.774* 

.754* 

.637* 

?6) ♦ 1 = 1*4) / 


-.350* - 

•34R* -*345* - 

-.326, -.331* -.345, - 

-.326, -.330* -.348* - 

-.160* -.151, -.147, - 

—.144, —.145, —.146, — 

-.139, -.144, -.165, - 

.007, . 

.013, 

.016, 

.054, 

.045, 

.041* 

.046, 

.041, 

.005, - 

.211, 

.224, 

.231* 

.252, 

.233, 

.216, 

.237, 

.230, 

.184, 

26) ,1=5* 

7 )/ 


.420, 

.439, 

.452* 

.433, 

.406, 

.385, 

.426, 

.413, 

.340, 

.672, 

.704, 

.723, 

.579, 

.551, 

.532* 

.569, 

.555, 

.473* 

.832, 

.865, 

.858, 

.682, 

.648, 

.611* 

.651, 

. b37 , 

.558, 

26) » 1=1* 

4)/ 


-.402, 

-.403, 

-.403, 

-.400, 

-.416, 

- ,406 , 

-.393, 

-.394* 

-.400, 

-.203, 

-.204, 

-.203, 

-.214, 

-.227, 

-.211, 

-.191, 

-.193, 

-.203* 

-.007, 

-.002, 

.002, 

-.019, 

-.036, 

-.020, 

.007, 

.005, 

-.004, 

.201, 

.208, 

.211* 

.167, 

.161, 

.179, 

.182, 

.177, 

.158, 

26) » I =5 1 

.7)/ 


.390, 

.406, 

.415, 

.341, 

.317, 

.343, 

.369, 

• 356, 

.302, 

.587, 

.619, 

.635, 

.455* 

.441, 

.465, 

.492, 

.480* 

.425, 

.745, 

.777, 

.784, 

.505, 

.494, 

.522, 

.556, 

.550, 

.517, 

26) ,1=1 

♦ 4)/ 


-.403, 

—.403, 

-.399, 

-.431, 

-.417* 

-.382, 

-.390, 

-.391, 

-.396, 


.646* 

.655* 

.666, 

.388* 

.326, 


.909* 

.892, 

.875, 

.749* 

.753, 

.772, 

.512, 

.424/ 


• 343* - 

-.340, - 

.337, 

.338* -.326, -.319, 

.356* -.364, 


.143* -.140, -.137, 

.145, -.133, -.123, 

• 190* -#215* 


.022* 

.027, 

.032, 

.045* 

.056, 

.067, 

.024* -.047, 


.237* 

.244, 

.251, 

.223, 

.238, 

.253, 

.144, 

.122/ 


• 465* 

.479, 

.491, 

.394, 

.420, 

.448, 

.276* 

.226, 


.715, 

.702, 

.680, 

.544* 

.569, 

.593, 

.406 * 

.341* 


• 847* 

.826 * 

.805, 

.617, 

• 643 , 

.670, 

.493* 

.435/ 


-.403* 

— .402 , 

-.401, 

— . 387 * 

-.387, 

— . 38 8 , 

-.400* 

-.397, 


-.202* 

-.200, 

-.197. 

-.187* 

-.186, 

-.184, 

-.217, 

-.227, 


• 006* 

.009, 

.013* 

.003* 

.015, 

.014, 

-.019* 

-.027, 


.215* 

.217, 

.218, 

.195* 

.206* 

.209, 

.139, 

.129/ 


.424* 

.436, 

.445, 

.379* 

.411, 

.419, 

• 266* 

.233, 


.643* 

.631* 

.602, 

.495* 

.524, 

.537, 

.384, 

.351, 


.762* 

.739, 

.694, 

.549* 

.576, 

• 586 , 

.488* 

.458/ 


-.395* 

-.390* 

-.387, 

-.376* 

-.379, 

-.383, 

-.403* 

-.420* 
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2 

- • 204 , 

-.207, - 

2 

-.168. 

-.173* - 

2 

-.181. 

-.183. - 

3 

-.004, 

-.009. - 

3 

.031* 

.008, - 

3 

i 0 35 , 

.032. 

4 

.179. 

.182. 

4 

.216. 

.181* 

4 

,216. 

.211. 

DATA ( ( CLO 15 ( I * J) 

5 

.310. 

.325. 

5 

.376. 

.322* 

5 

.353. 

.346, 

6 

.444* 

.473. 

6 

.503. 

.427. 

6 

.459. 

.452. 

7 

.552. 

.581. 

7 

.537. 

.468, 

7 

.501* 

.49 t » 

DATA ( (CL018 ( I * J) 

1 

-.400. 

-.399. - 

1 

-.387. 

-.409, - 

1 

-.344. 

-.344, • 

2 

-.177. 

-.193, « 

2 

-.197. 

-.228, • 

2 

-.135, 

-.135, • 

3 

.006. 

.00*. 

3 

-.013. 

-.051* ■ 

3 

• 065. 

• 06^» 

4 

.183. 

.183, 

4 

.153. 

.120. 


4 .245 * .243, 

DATA ( (CL018 ( I * 


5 

.317, 

.324. 

5 

.274. 

.23*. 

5 

.353. 

.350, 

6 

• 426 , 

.444, 

6 

♦ 354. 

.299. 

6 

.412. 

.407, 

7 

.521. 

.539, 

7 

.398. 

.33$, 

7 

.457, 

.454, 

D ATA ( (CL021 (I »< 

1 

-.374. 

-.369, 

1 

-.371, 

-.379, 

1 

-.311, 

-.313* 

2 

-.185. 

-.182, 

2 

-.194, 

-.217, 

2 

-.112, 

-. 123, 

3 

.003. 

-.002, 

3 

-.028, 

-.040, 

3 

• 056 , 

.049, 

4 

.178. 

.175, 

4 

.108, 

.090, 

4 

.165. 

.155. 


.209, -.209, -.209, - 

.202, -.223, -.221, - 

.186, -.189, -.191, - 

.006, 

.003, 

.014, 

.024, -.045, -.028, - 

.028, 

.025, 

.022, 

.191, 

.196, 

.208, 

.146, 

.133, 

.151, 

.205, 

.200, 

.195, 

, J=1 ,26) ,1=5,' 

n/ 

.342, 

.355, 

.371, 

.270, 

.245, 

.,272, 

.338, 

.330, 

.323, 

.499, 

.517, 

.539, 

.363, 

.344, 

.374, 

.444, 

.436, 

.431, 

.618, 

.640, 

.668, 

.405 , 

.379, 

.412, 

.492, 

. 486 , 

.481, 

i ,J=1,26) ,1 = 1, 

4)/ 

-.399, 

-.397, 

-.397, ■ 

- .426 , 

-.406, 

— .381 , 

-.344, 

-.344, 

-.345, ■ 

- • 1 84 , 

-.184, 

— . 183, 

-.253, 

-.221, 

-.185, 

-.135, 

-.135, 

—.136, 

.003, 

.003, 

.006, 

-.077, 

-.046, 

.007, 

.063, 

.063, 

.061, 

.190, 

.194, 

.198, 

.105, 

.140, 

.196, 

.241, 

.235, 

.229, 

) » J=1,?6) ,1=5, 

7) / 

.332, 

.341, 

.347, 

.216, 

.247, 

.299, 

.346, 

.339, 

. 333, 

,466 , 

.478, 

.494, 

.273, 

.296, 

.346, 

.403, 

.400, 

.396, 

.566, 

.588, 

.600, 

.305, 

.331, 

.385, 

.451, 

.449, 

.447* 

1) , J=l,26) ,1 = 1 

.4)/ 

-.367, 

-.367, 

-.356, 

-.366, 

-.337, 

-.308, 

-.316* 

-.318, 

-.321, 

-.179, 

-.174, 

-.160, 

— . 203 , 

-.169, 

-.133, 

-.135, 

-.141, 

-.146, 

.006, 

.016, 

.033, 

-.027, 

.004, 

.035, 

.043, 

.036, 

.029, 

.191, 

.211, 

.219, 

.101, 

.134, 

.168, 

.148, 

.142, 

.135, 


.201, -.192, -.183, - 

.184, -.164, -.166* - 

.207, -.223, -.243, 

.020, 

.025, 

.029, 

.001, 

.032, 

.041, 

.002, -.017, -.040, 

.214, 

.219, 

.225, 

.187, 

.222, 

.226, 

.169, 

.150, 

.130/ 

.379, 

.389, 

.401, 

.312, 

.351, 

.366, 

.287, 

.258, 

.238, 

.552, 

• 566 , 

.575, 

.415, 

.450, 

.467, 

• 400, 

.374, 

.352, 

.672, 

.663, 

.637, 

.461, 

.497, 

.509, 

.456, 

.442, 

.431/ 

-.397, 

-.396, 

-.391, 

-.358, 

— .347 , 

-. 344, 

-.348, 

-.345, 

-.344, 

-.181, 

-.179, 

-.177, 

-.149, 

-.131, 

-.133, 

-.135, 

-.141, 

-.144, 

• 010, 

.013, 

.019, 

.063, 

.074, 

.072, 

.047, 

.035, 

.026, 

.200, 

.200, 

.200, 

.241, 

.259, 

.257, 

.202, 

.176, 

.160/ 

.347, 

.348, 

.343, 

.344, 

.368, 

.366, 

.307, 

.282, 

.265, 

.501, 

.495, 

.463, 

.398, 

.422, 

.422, 

.375, 

.354, 

.340, 

.599* 

.579, 

.529, 

.440, 

.458, 

.460, 

.429, 

.419, 

,413/ 

-.346, 

-.337, 

-.341, 

-.286, 

-.286, 

-.293, 

—.325, 

-.324, 

-.331, 

-.146, 

-.139, 

-.153, 

-.098, 

-.077, 

-.088, 

-.151, 

-.157, 

-.165, 

.029, 

.016, 

o 

o 

• 

.075, 

.094, 

.082, 

-.001, 

-.013, 

-.020, 

.204, 

.181, 

.159, 

.192, 

.194, 

.187, 

.106, 

.091, 

.086/ 


175, 

.173, 

.032, 

.038, 

.231 * 
• 221 , 


.407, 

.360, 

.563, 

.464, 

.594, 

.505, 


*387 , 
.344, 

.181, 

.134, 

.023, 

.069, 

.189, 

.250, 


.314, 

.359, 

.412, 

.417, 

.465, 

.460, 


-.355, 
— .302 , 

— .173, 

-. 100 , 

-.014, 

.069, 

.136, 

.176, 
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DATA ( (CL021 ( I * J) »J=1 ,26) » 1=5*7) / 



• 246 , 

.217, 

5 

.290* 

.294, 

.307* 

.323, 

• 318, 

.304, 

.275, 

5 

.183* 

.158, 

.178, 

.221* 

.270, 

.304, 

• 301, 

.289, 

.278, 

5 

.268* 

.258* 

.247, 

.239, 

.231, 

.194, 

.175, 

.158, 

.271, 

6 

.373* 

.373* 

.384, 

.404, 

.401, 

.379, 

.343, 

.307, 

6 

.233* 

.212* 

.229, 

.283, 

. 340 , 

.377, 

.381, 

.371, 

.361, 

6 

.351* 

.340* 

.330, 

.320, 

.310, 

.275, 

.249, 

.227, 

.319, 

7 

.456* 

.463, 

.498, 

.522, 

.506, 

.467, 

.418, 

.368, 

7 

.270* 

.242* 

.268, 

.320, 

.377, 

.419, 

.424, 

.411, 

.398, 

7 

.388* 

.377, 

• 366, 

.356, 

.346, 

.310, 

.287, 

.267/ 


DATA< (ALP004(J,N) *n=i* 

9) , J = l,13)/ 




13.30, 

& 

-4.05* 

-2.07, 

-.10, 

1.94, 

3.82, 

5.88, 

8.34, 

10.82, 

& 

-4.08* 

-2.10, 

-.13, 

1.75, 

' 3.63, 

5.46, 

7.78, 

10.32, 

12.85, 

h 

-4.10* 

-2.12* 

-.23, 

1.55, 

3.40, 

5.05, 

7.01, 

9.61, 

12.21, 

(, 

-4.10* 

-2.14, 

-.30, 

1.45, 

3.23, 

4.83, 

6.49, 

9.05, 

11.62, 

6 

-4.11* 

-2.16, 

-.39, 

1.31, 

3.01, 

4.59, 

5.98, 

8.83, 

11.71, 

& 

-4.09* 

-2.16, 

-.44, 

1.24, 

2.90, 

4.49, 

5.91, 

8.89, 

11.97, 

f. 

-4.08* 

-2.18, 

-.50, 

1.17, 

2.82, 

4,40, 

5.90, 

8.98, 

12.18, 

f. 

-4.06* 

-2.20, 

-.57, 

1.09, 

2.76, 

4.35, 

5.89, 

9.26, 

12.77, 

6 

-4.05* 

-2.28* 

-.67, 

1.01, 

2.73, 

4.38, 

5.97, 

9.47, 

13.01, 

& 

-4.14* 

-2.40* 

-.77, 

.91, 

2.68, 

4.42, 

6.11, 

9.68, 

13.25, 

& 

-4.23* 

-2.53, 

-.88, 

.83, 

2.68, 

4.49, 

6.29, 

9.93, 

13.56, 

6 

-4.36* 

-2.67* 

-.95, 

.85, 

2.73, 

4.54, 

6 . 48 , 

10.15, 

13.82, 

& 

-4 . 53 » 

-2.76* 

-.95, 

.90, 

2.78, 

4.61, 

6.65, 

10.25, 

13.86/ 

DATA ( (ALPOOA (J* 

N) »N=1 » 

9) , J=1 4 

,26)/ 




14.00, 

J. 

-4.62* 

-2.74, 

-.89, 

.95, 

2.84, 

4.67, 

6.79, 

10.40, 

?. 

-4.55, 

-2.69, 

-.86, 

1.00, 

2.90, 

4.71, 

6.89, 

10.53, 

14.16, 

t. 

-4.42* 

-2.62, 

-.82, 

1.03, 

2.94, 

4.76, 

7.00* 

10.64, 

14.27, 

& 

-4.43, 

-2.61, 

- .80 , 

1.07, 

2.98, 

4.80, 

7.08, 

10.75, 

14.42, 

& 

-4.44* 

-2.63* 

-.81, 

1.07, 

2.98, 

4.81, 

7.10, 

10.70, 

14.31, 

& 

-4.47* 

-2.67, 

-.85, 

1.04, 

2.93, 

4.73, 

6.94, 

10.48, 

14.02, 

8. 

-4.51* 

-2.72, 

-.91, 

.95, 

2.85, 

4.65 , 

6.71, 

10.35, 

13.98, 

& 

-4.54* 

-2.74, 

-.96, 

.38, 

2.79, 

4.59, 

6.53, 

10.34, 

14.15, 

& 

-4.53* 

-2.76, 

-.97, 

.89, 

2.80, 

4.59, 

6.47, 

10.39, 

14.31, 

& 

-4.54, 

-2.69, 

-.86, 

1.00, 

2.89, 

4.66, 

6.69, 

10.39, 

14.09, 

& 

-3.89, 

-2.09, 

- » 32 , 

2.06, 

4.41, 

6.52, 

10.09, 

13.66, 

17.23, 

8, 

-3.83* 

-1.95, 

-.13, 

2.87, 

5.92, 

8.91, 

11.90, 

14.88, 

17.87, 

8. 

-3.83* 

-1.89, 

— .06, 

3.35, 

7.03, 

10.57, 

14.11, 

17.65, 

21.19/ 

DATA ( (ALP 006 ( J*N) *N=1*9) » J=li 

.13)/ 




12.50, 

& 

-4.01* 

-2.03, 

-.02, 

2.09, 

4.23, 

6.28, 

8.35, 

10.42, 

&. 

-4.00* 

-1.99, 

0.00, 

1.98, 

4.00, 

5.91, 

8.16, 

10.42, 

12.68, 

8. 

-3.99, 

-1.97, 

.01, 

1.33, 

3.77, 

5.46, 

7.94, 

10.82, 

13.70, 

& 

-3.99, 

-2.02, 

- • 03 , 

1.74, 

3.64 , 

5.27, 

7.40, 

10.01, 

12.63, 

S. 

-3.98* 

-2.06, 

-.10, 

1.65, 

3.43, 

5.02, 

6.88, 

9.45, 

12.01, 

6. 

-3.98* 

-2.08, 

-.14, 

1.57, 

3.32, 

4.90, 

6 .64, 

9.21 , 

11.77, 

& 

-3.98* 

-2.10, 

— .18, 

1.51, 

3.22, 

4.80, 

6.49, 

9.26, 

12.04, 

8; 

-3.98* 

-2.14, 

-.28, 

1.44, 

3.13, 

4.74, 

6.56, 

9.69, 

12.81 , 

& 

-4.01* 

-2.16, 

-.37, 

1.36, 

3.04, 

4.69, 

6.70, 

10.17, 

13.65, 

& 

-4.04, 

-2.23, 

-.46, 

1.28, 

2.96, 

4.68, 

6.99, 

10.47* 

13.95, 

& 

-4 . 05 » 

-2.26, 

-.56, 

1.19, 

2.93, 

4.76, 

7.29, 

10.74, 

14.19, 

f. 

-4.08* 

-2.33, 

-• 66 , 

1.11, 

2.92, 

4.85, 

7.59, 

10.99* 

14.37, 

1 i 

-4.10* 

-2.39, 

-.67, 

1.17, 

2.99, 

4.99, 

7.88, 

11.19, 

14.50/ 


DATA ( { ALP006 ( J 

,N) »N=1 ,9) , J=14,26)/ 




14.74, 

& 

-4.12* 

-2.35, 

-.61, 

1.25, 

3.09, 

5.19, 

8.18, 

11.46, 

6. 

-4.04* 

-2.29, 

-.55, 

1.33, 

3.19, 

5.37, 

8.55, 

11.97, 

15.38, 



& 

& 

6 

5. 

& 

6 

& 

& 

5> 

& 


-3.39, 
-3.79* 
-3.83* 
-3.92* 
-4.01* 
-4.06* 
-3.99, 
-3.91 , 
-3.74, 
-3.71, 


- 2 . 22 , 
- 2 . 18 , 
- 2 . 21 , 
-2.27, 
-2.29, 
-2.28, 
-2.18, 
-2.08, 
-1.78, 
-1 . 66 , 
- 1 . 68 , 


-.51, 
-.47, 
-.50, 
-.54, 
-.61 , 
-.60, 
-.53, 
-.42, 
.19, 
.48, 
.65, 


1.41, 

1.45, 

1.35, 

1.27, 

1.17, 

1.16, 

1.26, 

1.39, 

2 . 20 , 

2.97, 

3.73, 


3.29, 
3.31, 
3.23, 
3.10, 
2.98, 
3.00, 
3.15, 
3.31 , 
4.59, 
6.19, 
7.51, 


6 -4.42, -2.09, 

.04, 

2. 19, 

4.17, 

6 -4.45, -2.29, 

.04* 

2.10, 

4.07, 

6 -4.51, -2.38* 

-.02, 

1.98, 

3.91 , 

6 -4.53, -2.42, 

-.08, 

1.89, 

3.81, 

6 -4.53, -2.50, 

-.16, 

1.77, 

3.64, 

6 -4.56, -2.54, 

-.20, 

1.71, 

3.53, 

6 -4.57, -2.57, 

-.27, 

1 .66, 

3.43, 

8, -4.60, -2.60, 

— • 32 , 

1.59, 

3.33, 

6 -4.63, -2.63, 

-.39, 

1.53, 

3.24, 

& -4 . 66 , -2.64, 

-.45, 

1.47, 

3.18, 

6 -4.70, -2.65, 

-.53, 

1.40, 

3.23, 

6 -4 • 76 , -2 . 63 , 

-.58, 

1.37, 

3.37, 

6, -4.81, -2.62, 

-.55, 

1.47, 

3.64, 

HAT A t 1 ALP 0 0 9 ( J, 

N) ,N=1 

, 9 ) ♦ J= 1 4 

,26) / 


S. -4.74, -2.59, 

-.47, 

1,65, 

3.93, 

5. -4.55, -2.54, 

-.44, 

1.82, 

4.20, 

6 -4.64, -2.5^ , 

-.47, 

1.74, 

4.08, 

5, -4.77, -2.69, 

-.59, 

1.58, 

3.78, 

6 -4.83, -2.79, 

-.71, 

1.43, 

3 . 5 1 , 

6 -4.83, -2.75, 

-.67, 

1.41, 

3.41 , 

S, -4.84, -2.74, 

-.61 * 

1.47, 

3 . 5 0 , 

6 -4.83, -2.70, 

— . 55 , 

1.54, 

3 • b 1 , 

5, -4.79, -2.66, 

— .50 , 

1.61, 

3.72, 

6 -4.75* -2.60, 

-.44, 

1.68, 

3.86, 

6 -4.57, -2.38, 

— . 06 , 

2.21, 

4.90, 

6 -4 . 53 , -2 • 1 2 * 

.29, 

2.85, 

5.91, 

6 -4.48, -1.82, 

.56, 

3.50, 

7.26, 


6 -4.00, -1.99, 

,04, 

2.11, 

4.68, 

S, -4.00, -1.98, 

.06, 

2.09, 

4 • A- 3 f 

(, -3.99, -1.97, 

.07, 

2.05, 

4.22, 

6 -3.98, -1.97, 

.07, 

1.99, 

4.10, 

6 -3.97, -1,96, 

.02, 

1.92, 

3.94, 

& -3*97* -1 • 9? * 

- • 02 9 

1.89, 

3.85, 

f, -3.97, -1.98, 

- * 06 9 

1 .86, 

3.77, 

6 -3.98, -2.00, 

-.09, 

1.84, 

3.67, 

6 -3.99, -2.03, 

-.12* 

1.82, 

3.60, 

&, -4.00, -2.05, 

-.14, 

1.87, 

3. 63, 

6 -4.03, -2.07, 

-.14, 

1.96, 

3.78, 

6 -4.06, -2.08, 

-.07, 

2.15, 

4.24, 

6 -4.00, -1.86, 

.20, 

2.38, 

5.04, 

OAT A ( (ALP012 ( J»N) ,N=1 

,9) , J=14 

,26)/ 

6 -3.83* -1.72, 

.37, 

2.50, 

5.34, 


5.45, 

5.39, 

5.28, 
5.13, 
5.01, 
5.05, 

5.29, 
5.54, 
7.44, 

9.42, 
11.59, 

6.60, 

5.99, 

5.65, 

5.43, 
5.22, 
5.09, 

5.08, 

5.09, 
5.15, 
5.29, 
5.58, 
5.94, 
6.41, 

7.01, 

7.72, 

7.53, 
6.84, 
6.18, 
5.83, 

6 . 10 , 
6.43, 
6.76. 
7.10, 
8.99, 

10.46* 

11.51, 

7.54, 
6 . 93 , 
6.45, 
6.16, 
5.82, 
5.68, 
5.61, 
5.68, 

5.97, 
6.76, 

7.97, 
9.89, 

11.80, 

12 . 00 , 


8.99, 

8.96, 
8.53, 
8.16, 
8.04, 

8.13, 

8.46, 
8.79, 

10.47, 

12.65, 

15.67, 

9.46, 

8.57, 
7.95, 
7.60, 

7.19, 

7.14, 
7.29, 

7.58, 
7.92, 
8.27, 
8.36, 
9.50, 

10.29, 

11 . 13 * 

12.78, 

13.01, 

12.24, 

11.33, 

10.72, 

10.98, 

11.19, 
11.63, 

11.98, 
13.69, 
15.06, 
15.77, 

10.96, 
9.90, 
9.15, 
8.70, 
8.29, 
8 . 21 * 
8.64, 
9.13, 

10.30, 
11.82, 
14.12, 

17.30, 
19.80, 

19.55, 


12.87, 
13,04, 

12.30, 
11.70, 
11.58, 
11.80, 
12 . 00 , 
12.24, 
13.50, 

15.87, 
19.76, 

12.31, 
11.15, 
10.40, 
10 . 10 , 

9.68, 

10 . 10 , 

10.32, 
10.81, 
11 . 12 , 

11.39, 
12 , 22 . 
13.07, 
14.17, 

15.26, 

17.85, 
18.49, 

17.65, 
16.57, 
15 • 65 ♦ 

15.85, 
15.95, 
16.51 , 

16.85, 

18.40, 

19.66, 

20 . 02 , 

14.33, 

12 . 86 , 
11.35, 
11.23, 
10.82, 
10 . 90 , 
12 . 00 , 
12.83, 
14 . 65 , 
16.89, 
20 . 28 , 
24.70, 
27.80, 

27.09, 


16.76, 

17.12, 
16.08, 
15.24, 

15.12, 
15.47, 
15.54, 
15.69, 

1 6 . 53 , 
19.10, 
23.84/ 

15.17, 

13.73, 
12 . 86 , 
12.60, 
12.16, 
13.07, 
13.35, 
14.03, 
14.32, 
14.52, 

15.58, 
16.64, 
18 . 06 / 

19.38, 
22.91, 
23.97, 
23.05, 
21.77, 

20.59, 

20.73, 
20.71, 

21.39, 

21 . 73 , 
23.11, 
24.25, 
24.28/ 

17.79, 

15.82, 

14.55, 

13.76, 

13.35, 
13.58, 

15.36, 
16.54, 

i 19.00, 

. 21.95, 

, 26.43, 

> 32.11, 
, 35.80/ 

, 34.64, 


K 


14 



5, 

-3.94 ♦ 

-1 . 3 H * 

.20, 

2.26, 

4.93, 

10.74, 

17.75* 

24.77, 

31.79, 

& 

-4 . 1 3, 

-2.13* 

-.03* 

2.05, 

4.36, 

9.89, 

17.30* 

24.70, 

32.11* 

& 

-4.13* 

-2.14* 

-.16, 

1 .94, 

3.89, 

8.92, 

16.62* 

24.31 , 

32.00, 

L 

-4.12* 

-2.16, 

-.14, 

1.91, 

3.82, 

8.57, 

16.73* 

24.90, 

33.06, 

K 

(s 

-4.11 * 
-4,10* 

-2.14, 
-2. 12* 

-.12* 

-.10* 

1.98, 

2.05, 

3.89, 

4.05, 

8.90, 

9.13, 

17.06* 

16.68* 

25.22, 

24.23, 

33, 39 , 
31.77, 


-4.09* 

-2.11* 

-.09, 

2.11, 

4.28, 

9.31, 

16.21* 

23.10, 

30.00, 

& 

-4.07* 

-2,09* 

- , 07 * 

2.19, 

4.50, 

9.38, 

15,63* 

21.88, 

28.13, 

& 

— 4 . 06 ♦ 

-2.07, 

-.06, 

2.26, 

4.71 , 

9.43, 

15.14* 

20.86, 

26.57, 

& 

-4.00* 

-1.97* 

.06* 

2.58, 

S.59, 

9.80, 

14.15* 

18.50* 

22*85, 


-4.00* 

-1.B3* 

.24, 

2.96, 

6.31 , 

10.15, 

14.00* 

17.85, 

21 • 69 , 


-4.04* 

-1.73* 

.36, 

3.37, 

6.9?, 

10.65, 

14.39* 

18.13, 

21.87/ 

OATA ( ( AL°015 ( J* 

N ) * N = 1 * 

9) , J=l* 

13) / 



16.30, 

20.00, 

& 

-<►•00* 

-1.96* 

.04, 

2.32, 

5.34, 

6.89, 

12.59* 

K 

-3*98* 

-1 .93* 

.09, 

2.25, 

6,01 , 

8.35, 

12.06* 

15.76, 

19.46, 

& 

-3.98* 

-1.91* 

.06, 

2. 12, 

4.74, 

7.70, 

11.06* 

14.42, 

17.78, 

K 

-3.97* 

-1.92* 

-.03, 

2.05, 

4.56, 

7.35, 

10.60* 

13.85, 

17.11, 

& 

-3 # 97 * 

-1.92* 

-.13, 

1.92, 

4.35, 

6.95, 

10.05* 

13. 15, 

1 6 ,25, 

fs, 

-4.01* 

-1.99* 

-.18, 

1.86, 

4.24, 

6.80, 

10.13* 

13.47, 

16.80, 

6, 

is, 

-4.05* 

-4.10* 

-2.06* 

-2.1ft* 

•-".23, 

-.27, 

1 .80, 
1.74, 

4.12, 

3.99, 

6.70, 

6.81, 

10.82* 

13.26* 

14.95, 

19.71, 

19.07, 
26. 16, 

k 

-4.12* 

-2 . ?4 ♦ 

— .31, 

1.69, 

3.92, 

8.39, 

21.29* 

34.19, 

47.10, 

& 

-4. IS* 

-2.30* 

-.31 . 

1.83, 

4.38, 

11.71, 

23.47* 

35.24, 

47.00, 

k 

-4.13* 

-2.21 ♦ 

-.09, 

2.27, 

5.49, 

14.44, 

24.20* 

33.95, 

43.71 , 

k 

-3.99* 

-1.96* 

.28, 

2 . ft 7 , 

7.7b, 

17.29, 

26.81 ♦ 

36.33, 

45 • 86 , 

S, 

-3.70* 

-1.74* 

.61, 

3.20, 

9.20, 

20.63, 

32.06* 

43.49, 

54.91/ 

DATA ( ( ALP 0 1 5 < J, 

N ) » N= 1 , 

9) , J=14 

,26)/ 

17.89, 

28.42* 


49.47, 


-3.83* 

-1.7«* 

.31 , 

2*81, 

7.37, 

38.95, 

& 

-4.18* 

-2.16* 

.0 1, 

2.21, 

5.71, 

14.04, 

22.74, 

31.43, 

40.13, 


-4.23* 

-2.34 , 

-.33, 

1.77* 

4.99, 

12.38, 

20.89, 

29.40, 

37.91, 

& 

-4.20* 

-2.32* 

-.40, 

1.72, 

4.67, 

12.33, 

21.86, 

31.38, 

40.90, 

S, 

is, 

-4.16* 

-4.13* 

-?.2 b * 

-2.16* 

-.36, 

-.32, 

1.77, 
1 .«2* 

4.77, 

4.89, 

12.63, 

12.71, 

22.39, 

22.24, 

3?. 15, 
31.76, 

41.90, 

41.29, 


-4,12* 

-2.17* 

— • 30 , 

1.68, 

5.02, 

12.58, 

21.47, 

30.36, 

39 . 24 , 

k 

-4.11* 

-2.14* 

-.26, 

1,94, 

6.17, 

12.50, 

20.83, 

29.17, 

37.50, 

& 

-4,10* 

-2.11* 

-.23, 

2.00. 

5.32, 

12.56, 

20.56, 

28.56, 

36.56, 

& 

-4.09* 

-2 . ()9 , 

-.21 , 

2.03, 

5.43, 

12.76, 

20.76, 

28.76, 

36.76, 

k 

-4.04* 

-1 .93* 

-.02, 

2.53, 

ft. 00 , 

13.14, 

20.29, 

27.43, 

34,57, 

k 

-3.97 * 

-1.76, 

.20, 

2.93, 

6.76, 

12.65, 

18.53, 

24.41, 

30.29, 


-3.77* 

-1 .56* 

.47, 

3.30* 

7.22, 

12.28, 

17.34, 

22.41, 

27.47/ 

DATA ( ( ALPOlfi (D 

* N ) , N= 1 

, 9 ) , J = 1 1 

► 13)/ 


13.87, 

in. OR, 

22.29, 

& 

-4.00* 

-2 . 2 1 * 

-.07, 

2.25, 

8.52* 

9.66, 

K 

-4.01* 

-? • 16» 

-.04, 

2.24* 

5.27, 

9 • ?8 » 

13.49, 

17.71 , 

21.92, 

b 

-4.02* 

-2. l b * 

-.03, 

2.14, 

5.01, 

8.68, 

12.68, 

16.68, 

20 • 68 , 

& 

-4.03* 

- 2 . 16 , 

-.03, 

2.08, 

4.86, 

8.22, 

11.85, 

15.49, 

19.13, 

& 

-4.03* 

-2.16, 

— .06, 

2.03, 

4.72, 

8.00, 

11.77, 

15.55, 

19,32, 

& 

-4.03* 

-2. 16* 

— .10, 

2.00* 

4.69, 

8.02, 

12.10, 

16.18, 

20,27, 

&. 

-4,04* 

-2.19, 

-.14, 

2.00, 

4.71, 

8.50 , 

13.26, 

18.02, 

22.79, 

k 

-4.03* 

-2.21 * 

-. 19, 

2.00, 

4.95, 

10.15, 

16.21, 

22.27, 

28,33, 


-4.13* 

- 2 . 16 , 

-.23, 

2.18, 

6.76, 

13.09, 

20.64, 

28.19, 

35.74, 


-4.14* 

-2.03* 

.16, 

2.78, 

8.09, 

17.18, 

26.27* 

35.36, 

44,45, 

& 

-3.9(J ♦ 

-1.66, 

, 60 , 

3,39, 

11.61, 

22.72, 

33.83* 

44.94, 

56 « 06 , 

& 

-3.70 ♦ 

-1.40* 

.85, 

3.71, 

13.94, 

26.44, 

38.94* 

51.44, 

63.94, 


-3.94* 

-1.76, 

.49, 

3.12, 

11.94, 

23.37, 

34.80* 

46.23, 

57.66/ 


DATA ( ( ALP01B ( J»N) »N=1 ,9) »J= 14*26)/ 


J5 



-4.19* -2. 1^>* 

-.07, 

2.08, 

& -4.40* -2.49* 

-.59, 

1.54, 

i -4 * 49 * -2.6^* 

-.72* 

1*36, 

& -4.53* -2.64* 

-.70, 

1.33, 

f, -4.53* -2.63* 

- . 68 , 

1.45, 

& -4.54* -2.62* 

- . 65 , 

1.50, 

& -4.54* -2 • 6^ * 

- . 64 , 

1.52, 

S, -4 * 54 * -2 • 62 * 

-.64, 

1.54, 

Si -4 . 54 * -2.62* 

-. 64 , 

1.59, 

& -4.53* -2.61* 

-.62, 

1.65, 

Si -4 .49* -2.6l* 

-.52, 

1.97, 

^ -4.54* -2.58* 

-.40, 

2.45, 

-4.56* -2.56* 

-.31, 

2.76, 


v *+ 9 t 

6.65* 

6.60* 

6.28* 

6.90* 

5.98* 

6,48* 

7.52* 

9.06* 

11.33* 

16.03, 

18.83* 

14.77, 

12.32, 


11.47, 

11.04* 

9.79* 

9.32* 

9.79, 

11 . 02 * 

12.85, 

15.61, 

19.71, 

25.84, 

31.87, 

25.03, 

23.14, 


21 . 11 * 

19.93, 

16.81, 

16.10* 

17.41* 

20 . 11 * 

23.52, 
28.72* 
36.38, 
47 .46 , 

58.53, 

45.54, 
44.76, 


-4.92* 

-4.93* 

& -4,93* 
b -4.90, 

& - 4 . 86 , 

S. -4.91, 

?, -4.83* -2.4C* 
DATA ( (CD004 ( I * 
1 .0046* .0046, 

1 .0046, 

1 .0225, 

2 .0066, 

2 .0065, 

.2 .0264, 

3 .0177, 

3 .0116, 

3 .0387, 

4 .0446, 

4 .0405, 

4 .0772, 

5 .0877, 


0046, 
.0226, 
.0065, 
.0066, 
.0267 , 
.0144, 
.0118, 
. 0405, 
.0359* 
.0439, 
.0805, 
.0599, 


3 

3 . 20 , 

3.35, 

4.15, 

4.68, 

.38, 5.22, 14.65* 

,J=1»26) ,1=1*5)/ 
0046, .0046, .0046, 

.0047, 

.0225, 

.0064, 

.0077, 

• 0274 , 

. 0122 , 

.0135, 

.0428, 

• 0278 * 

.0524, 

.0871, 

.0569, 


.0046, 

.0046, 

. 0226 , 

.0064, 

.0070, 

.0271, 

. 0126 * 

.0119, 

.0417, 

.0305, 

.0482, 

.0838, 

.0537, 


* * W s * 

10.44* 

11 . 00 * 

13.14, 

13.79, 

14.65* 


. 0061* 
. 0220 * 
.0064* 
.0086* 
.0275, 
.0117, 
.0181 * 
.0439* 
.0272, 
.0567, 
.0904, 
.0623* 


.0046, 

. 0111 * 

.0185, 

.0065, 

.0138, 

.0280* 

.0115, 

.0237, 

.0501, 

.0293, 

.0609, 

.1047, 

.0651* 


.0046, 
. 0200 * 
.0149, 
. 0065 * 
.0234, 
.0274, 
.0116, 
. 0340 , 
• 0632 , 
.0349, 
.0694, 
.1216, 
.0759, 



.0065 

.0252 

.one 

.037C 

.0371 

.073* 

. 082 * 
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5 .0894* • 0969 * .1051* .1133* .1215* 

5 .1471* .1496, . 1526 * .1553, .1580* 

DATA ( (COO 06 ( l » J) ♦ J=1 *26) * 1 = 1 *5) / 

1 .0044* .004^* .0044, .0044* .0044? 

1 .0047* .0049* .0053, .0071* .0142* 

1 .0297* .0301* .0302* .0301* .0300* 

2 .0070* .0069* ,0069. .0069, .0069* 

2 .0069* .0074* .0084* .0117* .0188* 

2 .0344* .034^* ,03b2* .0356, .0360* 

3 .0149* , 0 1 3 ^ » .0131* .0128, .0124* 

3 .0119* .0128, .014b, .0185, .02b3, 

3 .0444* • 04b9 * .0473, .0488, .0^0 2* 

4 .0384, .0314* .0267, .0237, .0217, 

4 .0316, .0388* .0460, .0b32» .062b, 

4 .0982, .1013, .1037, .10b2, .1068, 

5 .0699, ,0b22» .Oblb, .Ob46, .061b, 

b .081b, .0881, .0947, .1013, .1121, 

b .1792, . lRlh* .1839, .1862, .1386, 

DATA ( (CD009 ( l * J) ,J=1,26) , 1=1 »b) / 

1 .0044* ,0044, .0044, .0044, ,0044* 

1 .0044, ,004b, .0061, .009b, .0148, 

1 ,04b7* .048b, .0508, .0527, .0533* 

2 .0083, .0064, .0064, .0065* .0066, 

2 .0076* .0092, ,013b* .0196, .0286, 

2 .0517, .0539* » ObbS , ,0b65, ,0b69, 

3 .0120* .0123* .0124, .0124, .012b, 

3 .0132, . 0 lb 1 ♦ .0223, .0302* .038b, 

3 .0619* .0640, .0661, .0682, ,0697* 

4 . 02bl ♦ .0242* .0238, .0236, .0236, 

4 . 0 29 R , .0374, .0470* .0b7b, ,06Hb» 

4 .1102* .1146, .1189, .1232, .127b, 

b . 0b02 ♦ .0486, .043b, . 04?2 , .0439, 

5 .0773, ,086b. .0968, .1067, .1161, 

b .1606* .1669, .1732* .1707, .1942* 

DATA ( (Cl)01 2 ( I * J) * J=1 *26) , 1 = 1 *5) / 

1 .0059, .0059, .0059, .0059, .0059, 

1 .0061, .0067, .0139, .024?, .0357, 

1 .0695, • 07?4 , .0738, .0749, .0756, 

2 .0084, .0084, ,008b, .0085, .0085, 

2 .0094* .0164* .0263, .0365, .0471, 

2 .0737* ,07 6b , ,078b, .0795, .0805* 

3 .0151, .0149, .0148, .0149, .0149, 

3 .0209, .0297, .0385, .0478, .0582, 

3 .0894, .0927, .0961, .0992* .1008, 

4 .0233* .0251* .0260, .0265, .0268* 

4 .0471, .0637, .0790* .0929, .1037. 

4 .1372, .1417, .1448, .1478, .1508, 

5 .0347* • 04 0 1 ♦ .0416, ,0422, .0450, 

5 .0947* .1116, .1300* .1484, .1626* 

b .1982, ,2011* .2016* .2016, .2016* 

DATAt (CD015 ( 1 ♦ J ) *J=1»26) * 1 = 1*5) / 

1 .0071, .006b, .0062* .0061, .0060* 

1 .0138* .0219* .0356, .0497, ,0633, 

1 .1074, .1119, .1155, .1179, .1187* 

2 .0104, .010b, .0107, .0109, .0111, 


.1282* .1332* 
.1707, .1792* 

.0044, .0044* 
.0218* .0261* 
.0284, ,0261* 

.0068* .0068* 
.0244, .0283* 

.0365, .0358* 
.0123, .0121, 
.0321* .0375, 
.0582* .0662, 
.0213, .0223, 
.0736, .0825* 

.1153, .1239, 

.0650, .0684* 
.1265, .1408* 
.2025, ,2153* 

.0044, .0044* 
.0224* .0312, 

«Obo6, ,0464* 
.0066, .0067* 
.0337, .0399* 
.0569, .0556* 
.0125, .0125* 
.0460, .0b24, 
.0773, .0842, 
.0237, .0237* 
.0800, .0905* 
.1388, .1422, 
•0467, .0517* 

• 1 254 » .1347* 
.1957, .1957* 

,0059, .0059, 

.0468, ,0558* 

. 0768 , . 0764 * 
.0085, .0085, 
.0553, .0614* 
.0849, .0854* 
.0150, ,0152* 

• 067 0 , * 0746 » 

.1082* ,1126* 
.0270* .0272* 
.1114, .1190* 
.1637. .1693* 

.0488, .0542* 
.1742, .1859* 
.2016, .2016* 

. 0060 , . 0060 . 
.0764, .0861* 
.1182, .1099, 
.0112* .0114* 


,1382* 

.1432, 

,1826/ 


,0045* 

.0046, 

,0287* 

.0293, 

,0238, 


,0068* 

• 0068 , 

,0311* 

.0330, 

, 0 339 , 


,0120. 

.0118, 

.0406, 

.0427 , 

.0743* 


.0244, 

. 0275 , 

.0897, 

.0951 , 

. 1 3?6 » 


.0719, 

.0753, 

.1559, 

.1711, 

.2261/ 


.0044, 

.0044, 

,0379* 

.0426, 

.0422, 


.0067, 

.0069, 

. 0450 * 

.0490, 

.0542, 


.0126, 

.0126, 

.0558, 

.0592, 

.0910, 


.0238* 

.0250, 

.0993, 

.1048, 

.1432* 


.0602, 

.0666, 

.1439, 

.1532, 

.1957/ 


.0059, 

.0059, 

.0616, 

• 0666 , 

.0717, 


.0085, 

.0085, 

.0676, 

.0708, 


.0843, 

• 0 1 54 * .0163, 
.0803, .0850, 
.1160* 

.0287, .0323, 
.1256, .1314, 
.1744, 

.0636, ,0792* 
.1923, .1953, 
.2016/ 

.0061, .0070, 
.0958, .1016, 
.1009, 

.0123, .0148, 
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. 0235 » 
.1110, 
. 0 1 97 t 
.0323* 
.1198. 
.0275. 
.0684. 
. 1598. 
.0399. 
.1073. 

o O -I "7 * 


.0331. 
.1163. 
.0203. 
.0438. 
. 1261 . 
.032?-. 
.0806. 
.1659. 
•0478. 
. 1266 , 
•a/. n'4. 


. 0449, 
.1196, 
.0206, 
.0558, 
.1305, 
.0346, 
.0925. 
,1700. 
.0514. 
. 1438. 

. P&RA . 


.0567, 

.1228, 

.0207, 

.0664, 

.1335, 

.0358, 

.1048, 

.1735, 

.0534, 

.1596, 

-?55n. 


• 0685 , 
.1248, 
.0209, 
.0772. 
.1365, 
.0370, 
.1172, 
.1770, 
.0553, 
.1753, 
.2598, 



2 

2 

2 

3 

3 

3 

4 
4 

4 

5 
5 
5 


. 0112 , 
.0421 , 
• 1346, 
.0197, 
.0575, 
.143e, 
,0346, 
.1108. 
.1977, 
,0553. 
.1562, 
,2976. 


.0152, 
« 0566 , 
.1398, 
.0267, 
.0695, 
.I486, 
, 048^ , 
.1297, 
. 2008 , 
.0739, 
.1864* 
.303 b » 


.0173, 

.0715, 

.1420, 

.0302, 

.0817, 

.1522, 

.0538, 

.1489, 

.2040, 

.0830, 

.2150, 

.3085, 


.0183, 
.0845, 
.1442, 
.0319, 
.0930, 
.1542, 
. 0564 , 
.1631, 
.2069, 
, 0 8 76 , 
.2351 , 
.3135, 


DATA ( ( CO 02 1 ( I ♦ J ) , J = 1 » 26) »I = 1 
1 .0093, .0113* .0123, .0129, 

1 .0405, .0535, .0665, .0795, 

1 .1421, .1500, .1578, .1656, 

2 .0136, .0172, .0190, .0199, 

2 .0499, .0620, .0741, .0861, 

2 .1520, .1617, .1713, .1757, 

3 .0280, .0332, .0358, .0371, 

3 .0719, .0837, .0959, .1087, 

3 .1793, .1836, .1878, .1919, 

4 .0566, .0668, .0730, .0772, 

4 .1291, .1449, .1577, .1702, 

4 .2257, .2320, .2358, .2396, 

5 .1044, .1234, .1329, .1376, 

5 .2125, .2285, .2444, .2604, 

5 .3069, .3091, .3088, 


0193, 
.0966, 
.1463* 
.0837, 
.1037, 
.1563, 
.0595, 
.1738, 
.2095, 
.0944, 
.2502, 
.3184, 
,5)/ 
.0135, 
.0915, 
.1714, 
.0208, 
.0982, 
.1786, 
.0383, 
.1215, 
.1961, 
.0814, 
.1826, 
.2433, 
.1423, 
.2764, 
.3081, 


.0792, 

.1260, 

.0209, 

.0881, 

.1463, 

.0382, 

.1283, 

.1925, 

.0579, 

.1879, 

.2697, 

.0106, 
.0983, 
.1358, 
.0198, 
.1071, 
.1521, 
.0350, 
.1143, 
.1683, 
.0614, 
.1808, 
.2250, 
.0981 , 
.2625, 
.3429, 

.0137, 
.1024, 
. 1816 , 
.0213, 
.1103, 
.1857, 
.0398, 
.1331, 
.2031, 
.0840, 
.1920, 
.2509, 
. 1446, 
.2898, 
.3062, 


.0892* 

.1205* 

. 0210 * 

.0975* 

.1521* 

,0398* 

.1376, 

.2025* 

,0b26» 

, 2002 * 

.2697* 

.0108* 

.1096* 

.1341, 

.0205, 

.1165* 

.1553, 

.0367, 

. 1248, 
.1804* 
. 0660 * 
,1858, 
.2406, 
.1051, 
.2713, 
.3535, 

.0142, 
.1133, 
. Ib04» 
.0224, 
.1224* 
.1857, 
.0421, 
. 1446, 
. 2021 * 
.0884* 
.2005, 
.2530* 
.1610, 
.2941, 
.3042* 


& 

61 


* 3084 * i « v ■ ' i t ■ ' w w — , w 

DATMXMI (J) i ,J=1*26) / . 3 , . 5 , . 6 , . 65 , . 7 , . 725 , . 75 , . 775 
.8, .825, . 85 , .875, .9, .925, .95, .975, 1.0, 1 . 025, 1 .05 
1 ’ 1 125,1.15,1.3,1.^5,1.6/ 


1.1, 1.125, 1.15,1. 3,1. 45,1. b/ 

DATA(CLI (J) t J=l»9)/-.4»-.2»0.0*.2,.4*.6,.8»1.0»l» 
DATA (ALP I (J),J = l,7)/-4. 0,-2. 0,0. 0,2. 0,4. 0,6. 0,8.0 

n tv* 1 1 _ i — i _ c \ / c\ 


DATA (hu. ~ 

DAT A ( CL 1 1 ( J ) ,J=1 ,5) /0.0, .2, .4, 
IORDER ( 1 ) = I ORDER (2) =1 
IPT (1) = -1 
IF (IKEY .EQ. 2) 

IF (TR .LT. *04) 

IF (TR .GE. .04 
IF (TR .GE. • 06 


. 09b7 » . 
.1119, 
. 0212 , . 
.1063, . 
.1545, 
.0442, , 
.1468, , 

.2126, 
.0751, , 
•2124, , 

.2697/ 

. 0110 , 

.1173, 

.1320, 

. 0220 , 

.1242, 

.1586, 

.0392, 

.1344, 

.1925, 

.0767, 

.190«, 

.2561, 

.1139, 

.2800, 

.3642/ 

.0167, 

.1242, 

.1775, 

• 0307 , 
.1328, 
.1857, 

, 05 0 1 , 
•1561, 
. 2010 , 
.0973, 
.2089, 
.2551, 
.1781, 
.2983, 
.3023/ 

,1.075, 

2 / 

/ 


GO TO 1000 
GO TO 9 
.AND. TR .LT. 
.AND. TR .LT. 


.06) 

.09) 


GO 

GO 


TO 

TO 


1 

2 


1039 , 

0235, 

1135, 

0546, 

1537, 

0897, 

2232, 


. 0112 , 

.1232, 

.0268, 

.1294, 

. 0462, 
.1391, 

.0923, 

.1945, 

.1329, 

.2888, 


.0277, 

.1343, 

.0401 , 
• 1424, 

.0605, 

.1677, 

.1132, 

.2173, 

.1953, 

.3026, 
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IF 

(TR 

• GE • #09 • AND • 

TR 

IF 

(TR 

# GE • #12 •AND. 

TR 

IF 

(TR 

•GE# .15 • AND • 

TR 

IF 

(TR 

#GE# • X 8 • AND • 

TR 

IF 

(TR 

.GE. .21) 60 TO 7 


9 Call IBI <7*ALPl#26fXMl*7fCL004*lORDER*lPT*AA*XM*CLFT04.IERR) 
CL=CLFT04 

1 CALL°IBI ( 7 * ALPI *26* XMI * 7* CL004* IORDER » IPT ♦ AA» XM»CLFT04» IERR) 

CALL ^IBI~(7*ALPI*26»XMI*7*CL006»IORDER»IPT»AA*XM» CLFT06 * IERR ) 
CL=CLFT04 + (CLFT06-CLFT04)*((TR-.04)/(.06-.04)) 

2 CALL°IBI° (7* ALP I *26* XMI*7*CL006* I ORDER* IPT »AA*XM»CLFT06» IERR) 

CALL 1 I Bl” 1 7 » ALP I *26* XM I » 7 * CL009 * IORDER * IPT » AA ♦ XM *CLFT09 * IERR ) 

CL=CLFT06 ♦ (CLFT09 - CLFT06 ) * ( (TR-.06)/(.09-.06) ) 

3 CALL IB I ( 7 , ALP I » 26 * XMI *7* CL009* IORDER* IPT* AA* XM»CLFT09* IERR) 

CALL ( lBl" 1 (7*ALPI,26*XMI,7,CL012*IOROER*IPT*AA*XM*CLFT12*IERR) 
CL=CLFT09MCLFTl2-CLFT09)*((TR-.09)/(.I2-.09) ) 

4 CALL°iBI ( 7 , ALPI *26* XMI ,7 » CLO 12* IORDER* IPT » AA» XM*CLFT12* IERR) 

CALL I B I ( 7 f ALP I ♦ 26 » XMI » 7 * CLO 15 » IORDER* IPT* AA * XM* CLFT 15 * IERR) 
CL=CLFT12 ♦ (CLFT15-CLFT12)M (TR-. 12) / ( . 15-. 12) ) 

5 CALL 0 IBI°(7,ALOI*26,XMI,7.CL015,IORDER*IPT,AA*XM,CLFT15,IERR) 

CALL ( IB1 ( 7, ALP I, 26 * XMI, 7, CLO 18* IORDER ♦ I PT » AA * XM» CLFT 1 8 ♦ IERR ) 
CL=CLFT15* (CLFT18-CLFT15)*< ( TR- . 1 5 ) / ( . 1 8- . 1 5 > ) 

6 CALL°IBI° ( 7 , ALPI *26 »XMI ,7*CL018* IORDER* IPT* AA*XM*CLFT1«*IERR) 
CALL IBI (7,AL p I»26»XMI»7*CL021*IOROER*IPT*AA*XM*CLFT21»IERR) 

CL=CLFT18* (CLFT21-CLFT18)*( (TR-. 18) / ( .21-. IB) ) 

7 CALL°IBI° (7, ALPI *26* XMI *7,CL021 * IORDER* IPT* AA,XM*CLFT21* IERR) 

CL=CLFT21 
GO TO 400 
1000 CONTINUE 


90 


10 


IPT 

(1) 

=-l 









IF 

(TR 

• LT. 

.04) 

GO TO 

90 




TO 

10 

IF 

(TR 

.GE. 

.04 

.AND. 

TR 

.LT. 

.06) 

GO 

IF 

(TR 

.GE. 

.06 

.AMD. 

TR 

.LT. 

.09) 

GO 

TO 

20 

IF 

(TR 

.GE. 

.09 

.AND. 

TR 

.LT. 

.12) 

GO 

TO 

30 

IF 

(TR 

.GE. 

.12 

.AND. 

TR 

• LT. 

.15) 

GO 

TO 

40 

IF 

(TR 

.GE. 

.15 

.AND. 

TR 

. LT . 

.18) 

60 

TO 

50 

IF 

(TR 

.GE. 

.18 

.AND. 

TR 

.LT. 

.21) 

GO 

TO 

60 

IF (TR .GE. .21) 
CALL IBI (26*XMI 

GO TO 

♦ 9 ♦ CLI 

i 70 
*26 

,ALP004, IORDER* 

IPT»XM*CL*AA04*IERR) 


AA=AA04 

CALL°IBI (26* XMI » 9* CLI *26* ALP004* IORDER* IPT*XM*CL*AA04* IERR) 
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IPT (1) = -1 

CALL IBI (26*XMI,9*ClI*26*ALP006,IORDER*IPT*XM,CL«AA06*IERR) 
AA=AA04 ♦ ( AAU6-AA04) *( ( TR- . 04 ) / ( . 06- . 04 ) ) 

GO TO 41)0 

20 CALL 1 0 1 (?6»XMI»9»CLI*26»ALP006»lORDERtIPT*XM#CLtAA06»lERR) 
IPT (1) = -1 

CALL I B I (26*XMi,9,CLI»2b.ALP009* IOPDER»IPT*XM,CL*AA09»IERR) 
AA=AAOP + (AA09 - AA06)»((TR - . 06 ) / < . 09-. 06 ) > 

GO TO 400 

30 CALL IBI (26*XHI»9»CLI»26*ALP009»IOROER*IPT*XM»CL»AA09*IERR) 
IPT (1) = -1 

CALL IBI (26»XMI,9»CLI*26»ALP012,IORDER»IPT*XM,CL»AAI2*IERR) 
AA=AA09+(AAl2-AA09)4((TR-.09)/(.l?-.09)) 

GO TO 400 

40 CALL I B I (26_*XHI,9»CLI*26»ALP012, I0RDER,IPT*XM,CL»AA12» IERR) 
IPT ( 1 ) =- 1 

CALL IBI (26»XMI*9*CLI»26»ALP01b*IORDER»IPT*XM,CL*AA15f IERR) 
AA=AA12+ (AAlb-AA12) tt ( (TR-. 12)/ (.15-, 12) ) 

GO TO 400 

50 CALL IBI (26»Xmi, 9»CLI»26,ALP015, I ORDER ♦ I PT . XM , CL » A A 1 5 » IERR) 
I p T ( l ) =-l 

call IBI (26»Xm I ,9,clI»26,ALP01B,IOROER»IPT*XM,CL»AA18»IERR) 
AA=AA15+ (AA1B-AA15)*( ( TR-. 15) / < • 18-. 15) ) 

GO TO 400 

bO CALL IBI (26»XMI,9»CLI »2b» ALP018, IORDER* IPT»XM,CLt AA18* IERR) 
IPT (1)=-1 

Call IBI (26»XMl»9»CLI*26*AL p 021t lORDERtlPT*XNUCL»AA21» IERR) 
AA=AA18+ (AA21-AA18) « ( (TR-. 18) / ( .21-. 18) ) 

GO TO 400 

70 CALL IBI (26»XMI,9.CLI»26»ALP021»IORDER.IPT.XM.CL»AA21f IERR) 
AA=AA2l 
400 CONTINUE 


IPT 

(1) 

= -l 









IF 

(TR 

.LT. 

.04) 

GO TO 

91 






IF 

(TR 

.ge. 

.04 

.and. 

TR 

.LT. 

.06) 

GO 

TO 

11 

IF 

(TR 

.GE. 

.os 

. AMD. 

TR 

.LT. 

.09) 

GO 

TO 

21 

IF 

(TR 

.ge. 

.09 

.AND. 

TR 

.LT. 

. 12) 

GO 

TO 

31 

IF 

(TR 

.GE. 

.12 

» AND . 

TR 

.LT. 

.15) 

GO 

TO 

4 1 

IF 

(TR 

.GE. 

.15 

.AND. 

TR 

.LT. 

.16) 

60 

TO 

51 

IF 

(TR 

.GE. 

.18 

.AND. 

TR 

.LT. 

.21) 

GO 

TO 

61 

IF 

(TR 

.GE. 

.21) 

GO TO 

i 71 







R1 CALL IBI (5»CLII.26.XWI.5,CO0O4,IOROER.IPT.CL,XM.CDRG04,IERR) 
CO=CDRG04 
WRITE (6.201) TR 

201 FORMAT (*0THlCKNES5 RAT 1 0 = * » F5 . 3 » * IS OUT OF RANGE. 

5.4/4 THE VALUES FOR T/C=.04 HAVE BEEN RETURNED* ) 

GO TO 250 

11 CALL IBI (5 1 CL 1 1 * 26 • XM I f 5 * CD004 » I ORDER * IPT * CL * XM* CDRG04 » I ERR ) 
IPT ( 1) =-l 

CALL IBI (5,CLII.2b.XMI,5,COOOb,IORnER.IPT*CL.XM.CDRG06tIERR) 
CO=CDRG044 (CORG06-CDPG04)4 ( ( TR-. 04 ) / ( . 06-. 04 ) ) 

GO TO 250 

21 Call I B I (5.CLII .26.XMI .5.C0006. IORDER. I P T*CL.XM»CORG06. IERR) 
IPT (1)=-1 

CALL IBI (5.CLII.26.XMI,5,C0009,IORDER.IPT*CL»XM»CDPG09,IERR) 


•4 


f 



nooooooooooooonooo 


CD=CDRG06 ♦ (CDRG09 - CDRG06) * ( ( TR- . 06 ) / ( . 09- . 06 ) ) 

GO TO 250 

31 CALL I B I (5,CLII,?6»XMI,S,CD009,IORDER,IPT,CL»XM»CDRG09,IERR) 
IPT < 1 ) =-l 

CALL IBI (5»CLII,26,XMI,5,CD012*I0RDER,IPT,CL,XM»CDRG12,IERR) 
CO=CDrG09+ (CC»RG12-CDRG09) * ( ( TR- . 09 ) / ( . 1 2- . 09 ) ) 

GO TO 250 

41 CALL IBI (5*CLI 1*26, XMI ,5 ,CD0 12 ♦ IORDER, IPT , CL , XM» CDRG 1 2 , I ERR) 
IPT ( 1 ) =-l 

CALL IBI (5,CLII,26,XMI,S,CD015,IOROER,IPT,CL»XM»CDRG15,IERR) 
CD=CDRG12+ (C0RG15-CDRG12)*( (TR-.12) /( . 15- . 12 ) ) 

GO TO 250 

51 CALL IBI (5,CLII»26»XMI,5»CD015»I0RDER,IPT,CL»XM»CDRG15»IERR) 
IPT ( 1 ) =-l 

CALL IBI (5,CLII,26,XMI,5,CD018,IORDER,IPT,CL»XM»CDRG18,IERR) 
CD = CDRG15+ (C^>RGiB-CDRGl5)*( (TR-. 15) / ( . 18-. 15) ) 

GO TO 250 

61 CALL IBI <5,CLII,26 f XMI,5,CD018,IORDER,lPT,CL»XMtCDRG18,IERR> 
IPT (1)=-1 

CALL IBI <5,CLII,2b,XMI,5,CD021>IORDER»IPT,CL*XM»CDRG21,IERR) 
C0=CDRG18+ (CDRQ21-CDRG18)<M ( TR-. 18 ) / ( . 21 -. 1 S ) ) 

GO TO 250 

71 CALL IBI <5,CLlI,26,XMI,5,CD021tIORDER*IPT,CL»XM»CDRG21,IERR> 
CD=CDRG21 

IF (TR .GT. .21) WRITE (6,204) TR 
204 FORMAT (*OTHlCKNESS RATI0=*,F5.3*» IS OUT OF RANGE. 

&*/■•» THE VALUES FOR T/C=.21 HAVE BEEN RETURNED. ») 

250 IF (CL .GT. .8) GO TO 251 
RETURN 

251 CALL COMPUT(0,XM*ALT»COR,TR,AA*CDT»CL*CD,CLDES) 

CD=CDT 

RETURN 

END 


SUBROUTINE AEROl ( XLD , CL, CD , XM, AA , I KEY ♦ TR , CLDES , ALT , COR , D ) 


THIS SUBROUTINE IS DESIGNED TO COMPUTE THE AIRFOIL 
CHARACTERISTIC FOR A 16 SERIES AIRFOIL WITH A GIVEN CAMBER. 

THIS SUBROUTINE RELATES CL * CD, CL/CD, MACH ♦ T/C » AND ALPHA. 

IT REPRESENTS THE DATA OF A 16-1XX AIRFOIL. 

XM=RELATIVE MACH NO. AT BLADE ELEMENT 
AA=ANGLE OF ATTACK IN DEGREES 
IKEYl: CL=CL (MACH, ALPHA, T/C) 

: CD=CD (MACH,CL*T/C) 

JXLD=CL/CD 

IKEY2: ALPHA=ALPHA ( MACH, CL » T/C ) 

: CD=CD(MACH,CL«T/C) 

: XLD=CL/CD 
TR=T/C 


21 



o o o 


DIMENSION I ORDER (2) » IPT ( 2 ) ♦ ALP 1 04 ( 26 ♦ 9 ) ♦ ALP 1 06 ( 26 * 9 ) , 


& 

ALP109 ( 

26,9) 

♦ ALP112 

(26,9) , ALPl 15(26 

,9) , ALPl 

18(26 

»9) . 


& 

ALP 1 21 ( 

26,9) 

,CLI (9) 

»XMI (26) 

, ALP 1(7) 

»CL1 04 (7 

, 26 ) , 



h. 

CL 1 06 ( 7 

,26) , 

CL 109 (7 

,26) ,CL1 

12(7,26) 

♦ CL1 15 ( 7 

, 26 ) » 



8. 

CL 1 18 (7 

,26) , 

CL121 (7 

,26) , CD1 

04(5,26) 

»CD1 06 (5 

, 26 ) » 



?. 

CD 1 09 ( 5 

,26) , 

CD 1 1 2 ( 5 

,26) » CDl 

15(5,26) 

, CD 1 1 8 ( 5 

♦ 26 ) , 



8. 

CD121 (5 

, 26 ) * 

CLII (5) 







DATA( (CL 

104(1 

» J) » J=1 

,26) , 1=1 

,4)/ 





1 

- . 302 ♦ 

-.302 

* -.302 

, -.302, 

-.304, 

-.308, - 

.312, 

-.315, 

-.317, 

1 

-.318, 

-.318 

, -.306 

, -.294, 

-.277, 

-.261 , - 

.247, 

-.247, 

-.262, 

1 

-.262, 

-.256 

, -.256 

, -.256, 

'-.256, 

-.317, - 

.324, 

-.308, 


2 

-.099, 

-.116 

, -.125 

, -.131, 

-.138, 

-.144, - 

.149, 

-.155, 

-.161, 

2 

-.161, 

-.155 

, -.138 

, -.112, 

-.085, 

-.068, - 

.066, 

-.082, 

-.081, 

2 

-.079, 

-.072 

♦ -.067 

♦ -.069, 

-.072, 

-.128, - 

.133, 

-.128, 


3 

.095, 

.098 

, .108 

, .117, 

.126, 

.130, 

.134, 

.141, 

.147, 

3 

.154, 

.161 

» .167 

, .175, 

.183, 

.190, 

.182, 

.165, 

.155, 

3 

.158, 

.168 

, .176 

, .183, 

.175, 

.057, - 

.009, 

-.014, 


4 

.301 , 

.318 

» .339 

, .355, 

.378, 

.389, 

.400, 

.412, 

.424, 

4 

.436, 

.448 

, .459 

, .467, 

.460, 

.450, 

.433, 

.416, 

.407, 

4 

.415, 

.430 

, .445 

, .450, 

.430, 

.246, 

.136, 

.104/ 


DATA ( (CL 

104(1 

» J) ,J=1 

,26) ,1=5 

,7)/ 





5 

.504, 

.536 

, .562 

, .585, 

.622, 

.639, 

• 656, 

.669, 

.678, 

5 

.681 , 

.677 

, .669 

, .661, 

.651, 

.641, 

.634, 

.629, 

.631, 

5 

.642, 

.656 

, .669 

♦ .675, 

• 656 , 

.410, 

.255, 

.215, 


6 

.698, 

.744 

, .791 

. .827, 

.864, 

.874, 

.877, 

.874, 

.868, 

6 

.858, 

.84® 

, .838 

, .829, 

.821, 

.813, 

.807, 

.803, 

.808, 

6 

.816, 

.332 

, .848 

, .854, 

.828, 

.564, 

.389, 

.321, 


7 

.852, 

.893 

, .971 

, 1.017, 

1.042, 

1.037, 1 

. 026, 

1 .015, 

1.003, 

7 

.989, 

.975 

, .961 

, .950, 

.941, 

.933, 

.924, 

.919, 

.918, 

7 

.924, 

.935 

, .955 

, .964, 

.934, 

.697, 

.521, 

.438/ 


DATA ( (CL 

106(1 

, J) , J=1 

,26) ,1=1 

,4) / 





1 

-.301 ♦ 

-.301 

, -.301 

, -.296, 

-.291 , 

-.290, - 

.289, 

-.289, 

-.268, 

1 

-.285, 

-.283 

, -.280 

, -.277, 

-.272, 

-.282, - 

.305, 

-.320, 

-.311, 

1 

-.299, 

-.288 

, -.281 

, -.282, 

-.288, 

-.314, - 

.321, 

-.311, 


2 

-.083, 

-.086 

, -.086 

, -.083, 

-.079, 

-.077, - 

.074, 

-.072, 

-.070, 

2 

-.066, 

-.063 

, -.060 

, -.057, 

-.071, 

-.103, - 

.124, 

-.130, 

-.111, 

2 

-.090, 

-.070 

, -.060 

♦ -.070, 

-.084, 

-.124, - 

.134, 

-.132, 


3 

• 105, 

.116 

, .129 

, .135, 

• 142, 

.147, 

.152, 

.157, 

.162, 

3 

.167, 

.172 

, .178 

, .184, 

.175, 

.151 , 

. 123, 

.118, 

.131, 

3 

.153, 

.171 

, .168 

, .155, 

. 143, 

. .072, 

.021, 

.003, 


4 

.313, 

.329 

, .348 

, .359, 

.377, 

.385, 

.395, 

.408, 

.420, 

4 

.433, 

.445 

, .446 

, .431, 

.411 , 

.392, 

.377, 

.376, 

.392, 

4 

.415, 

.436 

, .437 

, .421, 

.396, 

.257, 

.159, 

.112/ 


DATA ( (CL 

106(1 

,J) , J=1 

,26) , 1=5 

,7)/ 





5 

.502, 

.529 

, .558 

, .585, 

.614, 

.634, 

.655, 

.669, 

.666, 

5 

• 654 , 

• 64 1 

, .624 

, .608, 

.592, 

.577, 

• 564 » 

.565, 

.581, 

5 

.604, 

.625 

, .621 

, .603, 

.571, 

.398, 

.278, 

.221, 


6 

.684, 

.731 

, .782 

, .823, 

.872, 

.877, 

.864, 

.849, 

.831 , 

6 

.814, 

,79b 

, .779 

, .761, 

.744, 

.729, 

.717, 

.715, 

.731, 

6 

.750, 

.769 

, .769 

, .743, 

.712, 

.529, 

.405, 

.331, 


7 

.820, 

.869 

, .934 

, .989, 

1.008, 

1.002, 

.991, 

.971, 

.951, 

7 

.931, 

.911 

, .891 

, .871, 

. 851 , 

.834, 

.820, 

.829, 

.845, 
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7 

.867* 

.805, 

.883, 

.865, 

.837, 

.667, 

.536, 

.440/ 


DATA( (CL109(I» J) *J=1*26) »I=1*‘ 

4) / 





1 -.273» 

-.294, 

-.310, 

-.322, ■ 

-.336* -•344* - *352 * * 

-•JbU* -•JfU, 

1 - • 379 » 

-.387, 

-.394, 

— .402, 

-•409* -.422* - • 424 * -.36^* -•J<*v* 

1 - 


-.323, 

-.323, 

-.325, 

-.3?7 , -.336, -.341, 



2 - . fl77 » 

-,08l» 

-.094, 

-.103, 

-.112, - 

-.119, -.124, 

-•13U* -•lJf* 

2 

- • 1 45 * 

-.153, 

-.161, 

-.170, 

-.180, -.188, -.178, 

-• l^B* - • 1 23 f 

2 

-. 108* 

-. 108 * 

-.109, 

-.111, 

-.113, -.125, -.136, 

-.13*, 

.120, 

3 

.099* 

.099, 

.099, 

.103, 

.107, 

.110, 

.113, 

.117, 

3 

.124, 

.127* 

.130, 

.118, 

.089, 

.065, 

.071 , 

• 089 , 

.106, 

3 

.119* 

.119* 

.109, 

.100, 

.090, 

.043, 

.016, 

.008, 

.379, 

4 

.298* 

.322, 

.334. 

.337, 

.351, 

.358, 

.365, 

• 372 , 

4 

.384* 

.387* 

.378, 

.339, 

.298, 

.266, 

.283, 

.310, 

• 337 , 

4 

.360* 

.353* 

.339, 

.325, 

..310, 

.225, 

.157, 

■ 1 25/ 


DATAf fCL109fI»J) *J = 1*26) *1=5, 

7)/ 


.585, 

.598, 

.605, 

5 

• 465 * 

.492* 

.519, 

.536, 

.557, 

.571, 

5 

.593* 

.559* 

.524, 

.490, 

.456, 

.430, 

• 447 , 

.476 , 

. 505 , 

5 

.528* 

.518, 

.500, 

.481, 

.462, 

.362, 

♦ 283, 

. 226 , 

.776, 

6 

.638* 

.673, 

.708, 

.738, 

.783, 

.812, 

.814, 

.800, 

6 

.741 » 

.70^* 

. 667 , 

.627, 

.584, 

.564, 

.588, 

.616, 

.645, 

6 

,667* 

.655 * 

.635, 

.616, 

.596, 

.493, 

.414, 

.346, 

.866, 

7 

.762* 

.818* 

.868, 

.906, 

.949, 

.948, 

.929, 

• 898 , 

7 

.828* 

.786, 

.749, 

.709, 

.671 , 

.649, 

• 668 , 

.694, 

.720 , 

7 

.745* 

.733, 

.717, 

.701, 

.686, 

.596, 

.517, 

.450/ 


DATA(( CL 112(I*J)*J= 1*26 )»!=!» 

4) / 



-.279, 

-.280, 

1 

-.276* 

-.274, 

-.272, 

-.274, 

-.276, 

-.277, 

-.278, 

1 

-.281 ♦ 

-.232* 

-.294, 

-.340, 

-.373, 

-.362, 

-.306, 

-.301, 

—.303, 

1 

-.305* 

- .308 * 

-.310, 

-.313, 

-.315, 

-.334, 

-.349, 

— ,361 , 

-.096, 

2 

-.086* 

-.094, 

-• 095, 

-.094, 

-.093, 

-.093, 

-.093, 

— . 094 , 

2 

-.097* 

-.099, 

-. 121, 

-.171, 

-.203, 

-.186, 

-. 141, 

-.098, 

-.094, 

2 

-.097* 

-.099, 

-.102, 

-.105, 

-.109, 

-.128, 

-.143, 

— • 148 , 


3 

.084* 

.093, 

.098, 

.101, 

.104, 

. 1 05 , 

.107, 

.111, 

• 1 1 6 * 

3 

.119, 

.103, 

.071, 

. 0 34 , 

.014, 

.028, 

.055, 

.082, 

a 104, 

3 

.093* 

.083, 

.073, 

.063, 

.053, 

.013, 

-.010, 

-.014, 


4 

.283* 

.287, 

.298, 

.303, 

.311, 

.315, 

.319, 

• 324 , 

• 328 , 

4 

.321* 

.297, 

.255, 

.211* 

.183, 

.204, 

.240* 

• 277 , 

.298, 

4 

.287* 

.272* 

• 258, 

.243, 

.229, 

.165, 

.125, 

.095/ 


DATAt (CL112(I*< 

J) , j=i*; 

26) *I=5i 

► 7)/ 


.512, 

.521, 

.528, 

5 

.421 » 

.444 * 

• 467 , 

.479, 

.496, 

.504, 

5 

.509, 

.470, 

.415, 

.360, 

.330, 

.345, 

.382, 

.420, 

. 439 , 

5 

.429, 

.415, 

.399, 

.383, 

.367, 

.294, 

.248, 

• 207 , 

• 680 , 

6 

.581 , 

.608* 

. 640 , 

.663, 

.700, 

.719, 

.734, 

.717, 

6 

.630* 

.579, 

.528, 

.484, 

• 454, 

.481, 

.514, 

. 556 , 

.571, 

6 

.557, 

.542* 

.526, 

.510, 

.494, 

.415, 

.357, 

.314, 

.784, 

7 

.692* 

.712, 

.749, 

.778, 

.831, 

.855, 

.847, 

.824, 

7 

.721 * 

.658, 

.595* 

.534, 

.513, 

.527, 

• 566, 

.607, 

. 629 , 

7 

.618, 

.607 , 

.597, 

. 586 , 

.575, 

.510, 

.461, 

.415/ 


D ATA ( (CL1 15(1* 

J) , J=1 * 

26) ,1=1 

,4)/ 


-.292* 

-.292, 

-.292, 

1 

-.285, 

-.285* 

-.288, 

-.289, 

-.291, 

-.292, 

1 

-.292, 

-.308, 

-.345, 

-.383, 

-.361, 

-.301, 

-.291, 

-.280, 

— . 279 , 

1 

-.279* 

-.280, 

-.281, 

-.282, 

-.282, 

-.289, 

-.296, 

-.302, 

-.152, 

2 

-.104* 

-.117, 

-.128, 

-.134, 

-.138, 

-.140, 

-.142, 

-. 147 , 

2 

-.157, 

-.168, 

-.217, 

-.248, 

-.227, 

-.165, 

-.124, 

-.124, 

-.124, 

2 

-.124* 

-.12^* 

-.124, 

-.124, 

-.124, 

-.135, 

-.147, 

— • 1 57 , 

• 081 , 

3 

.073* 

.070, 

.071, 

.072, 

.075, 

.077, 

.079, 

.082, 
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3 

.064* 

.023, 

-.018, 

-.043, 

-.023, 

.019, 

.057, 

.069, 

.067, 

3 

.063* 

.059, 

.054, 

.050, 

,046, 

.026, 

.008, 

-.010, 


4 

.263* 

• 265* 

.275* 

.281, 

.291, 

.296, 

.301, 

.308, 

.313, 

4 

.284* 

.212* 

.146, 

.129, 

.158, 

.204, 

.250, 

.270, 

.261, 

4 

.250* 

.240, 

.231, 

.222, 

.212, 

.161, 

.125, 

.099/ 


DAT A ( (CL115(I»J) * J= 1 » 26 ) ,1=5, 

7)/ 





5 

.388* 

.410, 

.428, 

.438, 

.459, 

.471, 

.481 » 

.489, 

.474, 

5 

.410* 

. 347 , 

.284, 

.250, 

.287, 

.329, 

.372, 

.394, 

.384, 

5 

.374* 

.364, 

.354, 

.344, 

.334, 

.279, 

.233, 

.204, 


6 

.516, 

.541, 

.568, 

.589, 

.613, 

.628, 

. 645 , 

.648, 

.604, 

6 

.526* 

. 448 , 

• 376 , 

.342, 

.366, 

.415, 

.462, 

.480, 

.469, 

6 

.457, 

. 444 , 

.432, 

.423, 

.414, 

.365, 

.331 , 

.306, 


7 

.628, 

.657 , 

.688, 

.711, 

.741, 

.759, 

.752, 

.722, 

.658, 

7 

• 575 * 

.491 * 

.415, 

.388, 

.416, 

.466, 

.512, 

.526, 

.516, 

7 

• 506* 

.49b, 

.487, 

.477, 

.468, 

.419, 

.382, 

.355/ 


DATA ( (CL1 18 ( I ♦ J) » J = 1 ,26) , 1 = 1 *4) / 




-.328, 

1 

-.252, 

-.255, 

-.255, 

-.265, 

-.280, 

-.288, 

- . 296 * 

-.310, 

1 

-.344, 

-.359, 

-.371 , 

-.375, 

- . 344 , 

-.312, 

-.289, 

-.278, 

-.277, 

1 

-.280, 

-.283, 

-.286, 

-.289, 

-.299, 

-.293, 

-.296, 

-.298, 

-.205, 

2 

-.111, 

-• 122, 

-.135,, 

-. 145, 

-.156, 

-.161, 

-.167, 

-.185, 

2 

-.223, 

-.241, 

-.250, 

-.228, 

-. 191, 

-.151, 

-.137, 

-.135, 

-.135, 

2 

-.138, 

-.141, 

-.144, 

-.147, 

-.148, 

-.151, 

-.150, 

-.157, 


3 

.047, 

.040, 

.042, 

.044, 

.055, 

.057, 

.057, 

.053, 

.024, 

3 

-.024, 

-.071, 

-.094, 

-.071, 

-.024, 

.024, 

.043, 

.040, 

.038, 

3 

. 035, 

.032, 

.029, 

.027, 

.024, 

.009, 

-.006, 

-.013, 

.186, 

4 

.218, 

.226, 

.235, 

.240, 

.246, 

.250, 

.247, 

.226, 

4 

.132, 

.072, 

.047, 

.082, 

.148, 

.209, 

.232, 

.224, 

• 217, 

4 

.209, 

.201, 

.193, 

.185, 

.178, 

.148, 

.119, 

.099/ 


DAT A ( ( Cl_ 1 1 B ( I » 

J) , J=l, 

26) ,1=5,7)/ 




.311, 

5 

.352, 

.358* 

.371, 

.383, 

.401, 

.405, 

.390, 

.362, 

5 

.248* 

.179, 

. 169, 

.208, 

.274, 

.333, 

.344, 

.339, 

.335, 

5 

.329, 

.321* 

.313, 

.305, 

.298, 

.262, 

• 226, 

.203, 

.383, 

6 

» 454 , 

,46? , 

.498, 

.516, 

.556, 

.559, 

.529, 

.456, 

6 

.311, 

.253, 

.244, 

.283, 

.341, 

.397, 

.419, 

.411, 

.404, 

6 

.396, 

.389, 

.381, 

.374, 

.367, 

.326, 

.295, 

.272, 


7 

.546, 

.569, 

.599, 

.630, 

.669, 

.664, 

.619, 

.543, 

.461 , 

7 

.365, 

.288, 

.2 72, 

.306, 

. 366 , 

.424, 

• 453 , 

.446, 

.438, 

7 

.431, 

.423, 

.416, 

.410, 

.403, 

.363, 

.329, 

.305/ 


DATA ( (CL121 (It 

J) ,J = 1» 

26) ,1=1 

,4) / 





1 

-.393, 

-.391, 

-.390, 

-.392* 

-.374, 

-.371, 

-.364, 

-.376, 

-.390, 

1 

-.419, 

-.438, 

-.420, 

-.371, 

-.305, 

-.252, 

— . 254 , 

-.259, 

-.265, 

1 

-.271 , 

-.277, 

-.283, 

-.289, 

-.295, 

-.305, 

-.318, 

-.328, 


2 

-.174, 

-.174, 

-.170, 

-.166, 

-.152, 

-.145, 

-.135, 

-.151, 

-.179, 

2 

-.211, 

-.213, 

-.189, 

-.134, 

— .078, 

-.042, 

-.036, 

-.040, 

-.048, 

2 

-.056, 

-.064, 

-.072, 

-.080, 

-.088. 

-.127, 

-.148, 

-.151, 

-.045, 

3 

.019, 

.019, 

.020, 

.026, 

.032, 

.030 , 

.015, 

-.015, 

3 

-.075, 

-.090, 

-.066, 

.006, 

.093, 

.124, 

.122, 

.120, 

.113, 

3 

.107, 

.100, 

.093, 

.087, 

.080, 

. 046 , 

.020, 

.002, 


4 

• 186, 

.186, 

.191, 

.197, 

.211, 

.210, 

. 183, 

.130, 

.076, 

4 

.030, 

. 007 , 

.035, 

.115, 

.193, 

.220, 

• 216, 

.209, 

.202, 

4 

.196, 

. 189, 

.183, 

• 176, 

.169, 

.132, 

.101, 

.077/ 



DATA ( ( CL 12 1 (I* 

J) » J=1 » 

26) * 1=5 

,7)/ 




.172, 

5 

.281 , 

.284, 

.286, 

.299, 

.325, 

.332, 

.306, 

.244, 

5 

.113, 

.100, 

.126, 

.207, 

.283, 

.314, 

.309, 

.303, 

.294, 

5 

.286, 

.277, 

.269, 

, 260 , 

.252, 

.212, 

.182, 

• 160, 
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6 

.386* 

.386, 

.398, 

• 414, 

.450, 

.435, 

.398, 

.316, 

.234, 

6 

. 171 . 

.159, 

. 185, 

. 258 , 

.333, 

.366* 

.363, 

.359, 

.351, 

6 

.343, 

.335, 

.328, 

.320, 

.312, 

.269, 

.233, 

.205, 


7 

.452, 

.472, 

.501, 

.538, 

. 553 , 

.516, 

.456* 

.384, 

.287, 

7 

.204, 

.180, 

.205, 

.285, 

.350, 

.389, 

.393. 

.386, 

• 360, 

7 

.373, 

.366, 

.360, 

.353, 

.346, 

.301 , 

.265* 

.235/ 


DATA ( (ALP104 ( J 

*N) »N=1» 

9) ,J=1, 

13) / 





& 

-4.97, 

-3.00, 

-.98, 

1.02, 

2.98, 

4.99, 

7.32* 

9.92, 

12,52, 

& 

-5.05, 

-2.90, 

-.92, 

.93, 

2.75, 

4.62, 

6.75* 

9.44, 

12.12, 

& 

-5.11, 

-2.95, 

-.93, 

• 80, 

2.55, 

4.33, 

6.10* 

8.32, 

10.54, 

& 

-5.15, 

-2.81 , 

-.94, 

.70, 

2.39, 

4.12, 

5.78* 

7.82, 

9.93, 

& 

-5.16, 

-2.75, 

-.95, 

.59, 

2.18, 

3.82, 

5.47* 

7.53, 

9.78, 

& 

-5.12, 

-2.68, 

-.95, 

• 54 , 

2.09, 

3.69, 

5.37* 

7.55, 

10.00, 

t> 

-5.08, 

-2.63, 

-.95, 

.50, 

2.00, 

3.56, 

5.30* 

7.65, 

10.34, 

8. 

-5.06, 

-2.56, 

-.95, 

.44, • 

1.91, 

3.46, 

5.28* 

7.79, 

10.62, 

S. 

-5.06, 

-2.50, 

-.95, 

.38, 

1.83, 

3.39, 

5.28* 

7.96, 

10.92, 

S. 

-5.04, 

-2.50, 

-.98, 

• 33, 

1.74, 

3.34, 

5.34* 

8.17, 

11.22, 

& 

-5.01 , 

-2.55, 

-1.02, 

.27, 

1.67, 

3.33, 

5.44, 

8.39, 

11.54, 

8. 

-5.12, 

-2.74, 

-1.10, 

.23, 

1.60, 

3.34, 

5.55, 

8.63, 

11.89, 

8. 

-5.16, 

-2.97, 

-1.22, 

.17, 

1.54, 

3.37, 

5.65, 

8.83, 

12.13/ 

DATA ( ( ALP 1 04 ( J 

, N ) »N=1,9) , J= 14, 26 ) / 





& 

-5.29, 

-3.20, 

-1.37, 

.12, 

1.57, 

3.47, 

5.75, 

8.98, 

12.32, 

8. 

-5.44, 

-3.37, 

-1.47, 

.08, 

1 . 62 , 

3.57, 

5.85, 

9.12, 

12.45, 

8. 

-5.69, 

-3.48, 

-1.47, 

.14, 

1.74, 

3.66, 

5.92, 

9.30, 

12.72, 

8. 

-5.85, 

-3 . 43 , 

-1.34, 

.28, 

1.87, 

3.73, 

5.97, 

9.40, 

12.84, 

8, 

-5.52, 

-3. 31, 

-1.31, 

. 36 , 

1.94, 

3.72, 

5.91, 

9.49, 

13.13, 

8. 

-5.51, 

-3.32* 

-1.33, 

.33, 

1.88, 

3.63, 

5.82, 

9.41, 

13.11, 

8. 

-5.53, 

-3.38, 

-1.40, 

.24, 

1.77, 

3.50, 

5 . 64 , 

9.26, 

13.15, 

8. 

-5.52, 

-3 . 4 1 , 

-1.45, 

.18, 

1.67, 

3.38, 

5 • 46, 

8.84, 

12.58, 

8. 

-5.54, 

-3.40, 

-1.45, 

.13, 

1 .63, 

3.33, 

5.40, 

8.65, 

12.29, 

& 

-5.57, 

-3.39, 

-1.42, 

.20, 

1.76, 

3.50, 

5.67, 

9.25, 

13.02, 

8. 

-4.88, 

-2.76, 

-.62, 

1.51, 

3.88, 

6.54, 

9.55, 

12.56, 

15.56, 

8. 

-4.80, 

-2.70, 

.12, 

3.08, 

6.17, 

9.20, 

12.23, 

15.26, 

18.29, 

& 

-5.02, 

-2.80, 

.24, 

3.73, 

7.35, 

10.77, 

14.19, 

17.61, 

21.03/ 

DATA( (ALP106(J 

II 

9) , J*l* 

13)/ 





8. 

-4.91, 

-3.07* 

-1.12, 

.91, 

2.92, 

• 

O 

03 

7.71, 

10.65, 

13.59, 

8k 

-4.93, 

-3.05, 

-1.14, 

.79, 

2.71, 

4.70, 

7.00, 

9,90, 

12.80, 

8, 

-4.92, 

-3.06, 

-1.20, 

.65, 

2.50, 

4.38, 

6.24, 

8.07, 

11.50, 

8, 

-4.98, 

-3.10, 

-1.24, 

. 58 , 

2.36, 

4.13, 

5.81, 

8,13. 

10.54, 

8. 

-5 . 03, 

-3.14, 

-1.29, 

.49, 

2.19, 

3.88, 

5.44, 

7.88, 

10.82, 

8. 

-5 . 03 , 

-3.15, 

-1.31, 

.45, 

2.12, 

3.73, 

5.37, 

7.97, 

11.17, 

8. 

-5.03, 

-3 .17, 

-1.35, 

.40, 

2.04, 

3.58, 

5.39, 

8.14, 

11.29, 

8, 

-5.02, 

-3.18, 

-1.37, 

• 34 , 

1.94, 

3.47, 

5 . 46 , 

8.48, 

11.75, 

8. 

-5.03, 

-3.19, 

-1.40, 

.29, 

1.84, 

3.46, 

5.62, 

8.82, 

12.15, 

8. 

-5.05, 

-3.22, 

-1.43, 

.25, 

1.75, 

3.51, 

5.83, 

9.18, 

12.60, 

8. 

-5.06, 

-3.25, 

-1.46, 

.21 , 

1.67, 

3.58, 

8.07, 

9.5b, 

13.03, 

8. 

-5.09. 

-3.27, 

-1.50, 

.16, 

1.66, 

3.73, 

6.38, 

9.95, 

13.52, 

& 

-5.12, 

-3.30, 

-1.53, 

.13, 

1.75, 

3.91 , 

6.71 , 

10.35, 

13.98/ 

DATA ( ( ALP 1 06 ( J 

N ) »N=1 , 

9) , J=14 

,26) / 





6. 

-5.27, 

-3.28, 

-1.42, 

.21, 

1.91, 

4.11, 

7.05, 

10.79, 

14.52, 

8. 

-5.32, 

-3.08, 

-1.19, 

.41, 

2.09, 

4.30, 

7.35, 

11.16, 

14.97, 

8. 

-5.05, 

-2.84, 

-1.00, 

.61, 

2.25, 

4.47, 

7.61, 

11.50, 

15.38, 

8. 

-4.84, 

-2.74, 

-.95, 

• 64, 

2.25, 

4.47, 

7.49, 

11,00, 

14.51, 

& 

-4.99, 

-2.89, 

-1.08, 

.53, 

2.08, 

4.25, 

7.21, 

10.72, 

14.23, 


-4.97, 

-3.05, 

-1.26, 

. 36 , 

1.89, 

3.96, 

6.85, 

10.27, 

13.69, 
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s. 

-5.03* 

-3.19, 

-1.42, 

• 22, 

1.73, 

3.74, 

6.53, 

9.98, 

13.43, 

& 

-5 • 08 * 

-3.27, 

-1.47, 

.24, 

1.72, 

3.77, 

6*54 , 

10.05, 

13.56, 


-5.11* 

-3.23, 

-1.38, 

.34, 

1.84, 

3.97, 

6.93, 

10.21, 

13.49, 


-5.10* 

-3.14, 

-1.26, 

.45, 

2.05, 

4.41, 

7.41, 

10.61, 

13.81, 

6. 

-4.91* 

-2.80, 

-.73, 

1.38, 

4.03, 

7.03, 

9.93, 

12.83, 

15.72, 

S. 

-4.84* 

-2.71, 

-.27, 

2.69, 

5.92, 

8.98, 

12.03, 

15.08, 

18.14, 

& 

-4.99* 

-2.76, 

-.04, 

3.61, 

7.27, 

10.94, 

14.61, 

18.28, 

21.94/ 

DAT A ( (ALP109(J» 

N) *N=1 , 

9) , J=1 * 

13)/ 





& 

-5. 30 * 

-3.26, 

-1.13, 

1.02, 

3.22, 

5.56, 

8.61, 

11.84, 

15.06, 

f, 

-5.00* 

-3.12, 

-1.10, 

.91, 

2.92, 

5.19, 

7.75, 

10.51, 

13.27, 

&, 

-4.83* 

-2.98, 

-1.03, 

. 86 , 

2.71, 

4.86, 

7.15, 

9.65, 

12.15, 

& 

-4.71* 

-2.89, 

-1.00, 

.83, 

2.63, 

4.63, 

6.74, 

9.12, 

11.50, 

5, 

-4.57* 

-2.79, 

-.98, 

.76, 

2.48, 

4.38, 

6.20, 

8.61, 

11.02, 

f. 

-4.50* 

-2.73, 

-.96, 

.73, 

2.39, 

4.24, 

5.90* 

8.76, 

11.71, 

& 

-4.42* 

-2.67, 

-.95, 

.69, 

2.32, 

4.13, 

5.88, 

9.23, 

12.71, 

5, 

-4.35* 

-2.61, 

-.95, 

.65, 

2.25, 

4.02, 

6.00, 

10.08, 

14.16, 

& 

-4.26, 

-2.54, 

-.93, 

.62, 

2.19, 

3.96, 

6.53, 

10.98, 

15.42, 

f. 

-4.18* 

-2.47, 

-.92, 

.58, 

2.15, 

4.09, 

7.36, 

11.95, 

16.55, 

5, 

-4.11, 

-2.40, 

-.91, 

.56, 

2.15, 

4.57, 

8.29, 

13.05, 

17.81, 

f. 

-4.05* 

-2.33* 

-.89, 

.56, 

2.30, 

5.06, 

9.24, 

14.12, 

19.00, 

& 

-3.98* 

-2.26, 

-.82, 

.74, 

2.81, 

5.61, 

10.22, 

15.10, 

19.98/ 

DATA ( (ALP109( JtN) *N=1 *9) ,J*14 

,26)/ 





& 

-3.92* 

-2.17, 

-.66, 

1.06, 

3.29, 

6.37, 

10.97, 

15.56, 

20.16, 

& 

-3.81, 

-2.10, 

-.51, 

1.34, 

3.63, 

6.85, 

11.55, 

16.26, 

20.96, 

6. 

-3.80* 

- 2 . 18 , 

-.57, 

1.22, 

3.43, 

6.30* 

11.30, 

16.30, 

21.30, 

8. 

-4.14, 

-2.44, 

-.75, 

1.00, 

3.00, 

5.77, 

10.72, 

15.85, 

20.97, 

8. 

-4.45* 

-2.68, 

-.93, 

.81, 

2.75, 

5.36, 

10.13, 

15.47, 

20.80, 

8, 

—4 . 65 » 

-2.84, 

-1.05, 

.67 , 

2.48, 

5.04, 

9.41 , 

14.54, 

19.67, 

8. 

-4.72, 

-2.86, 

-1.05, 

.69, 

2.57, 

5.20, 

9.72, 

14.85, 

19.97, 

8, 

-4.72* 

-2.85, 

-1.00, 

.79, 

2.76, 

5.48, 

10.02, 

14.90, 

19.78, 

8. 

-4.70* 

-2.83, 

-.95, 

. 89 , 

2.96, 

5.76, 

10.33, 

15.04, 

19.74, 

8. 

-4.68, 

-2.81, 

-.89, 

1.00, 

3.18, 

6.09, 

10.53, 

14.98, 

19.42, 

& 

-4.61 * 

-2.71, 

-.51, 

1.73, 

4.58, 

8.08, 

11.96, 

15.84, 

19.73, 

8. 

-4.58* 

-2.62, 

-.21, 

2.68, 

5.79, 

9.61, 

13.50, 

17.38, 

21.26, 

8» 

-4.62* 

-2.61 , 

-.11, 

3.49, 

7.04, 

10.88, 

14.73, 

18.58, 

22.42/ 

D AT A ( (A|_P112< J* 

N) ♦ N= 1 , 

9) ♦ J=l, 

13)/ 





8. 

-5.31, 

-3.20, 

-.99, 

1.17, 

3.70, 

6.34, 

9.95, 

13.55, 

17.15, 

8. 

-5 • 40 * 

-3.18, 

-.99, 

1.10, 

3.44, 

5.90, 

9.69, 

13.54, 

17.38, 

8. 

-5.45* 

-3.19, 

-1.02, 

1.02, 

3.21, 

5.54, 

8.94, 

12.61, 

16.28, 

& 

-5.40* 

-3.18, 

-1.04, 

.98, 

3.10, 

5.32, 

8.38, 

11.86, 

15.34, 

8. 

-5.36, 

-3.17, 

-1.06, 

.93, 

2.96, 

5.02, 

7.53, 

10.58, 

13.63, 

8. 

-5.34, 

-3.16, 

-1.06, 

.90, 

2.90, 

4.89, 

7.19, 

10.13, 

13.07, 

& 

-5.32, 

-3.16, 

-1.07, 

• 88, 

2.84, 

4.79, 

7.17, 

10.71, 

14.25, 

8. 

-5.31, 

-3.15, 

-1.08, 

.84, 

2.77, 

4.81, 

7.55, 

11.29, 

15.03, 

& 

-5.30, 

-3.13, 

-1.09, 

.79, 

2.72, 

4.95, 

8.31, 

12.15, 

16.00, 

& 

-5.29, 

-3.12, 

-1.10, 

.80, 

2.84, 

5.50, 

9.74, 

14.13, 

18.53, 

& 

-5.29, 

-3.10, 

-1.02, 

1.00, 

3.19, 

6.53, 

11.59, 

16.66, 

21.72, 

8. 

-5.23, 

-2.91, 

-.74, 

1.40, 

3.81, 

8.15, 

14.12, 

20.09, 

26.06, 

8. 

-4.71, 

-2.34, 

-.33, 

1 .88, 

4 . 65 , 

10.64, 

18.64, 

26.64, 

34.64/ 

DAT A ( (ALP112( J* 

N) ,N=1 , 

9) , J=14 

,26)/ 





8» 

-4.32, 

-1.97, 

-.13, 

2.23, 

5.13, 

10.95, 

17.73, 

24.51, 

31.29, 

8. 

-4.43, 

-2.16, 

— . 26 , 

1.95, 

4.81, 

11.17, 

19.87, 

28.57, 

37.26, 

8. 

-5.14, 

-2.72, 

-.56, 

1.57, 

4.27, 

9.31, 

17.00, 

24.69, 

32.38, 

8. 

-4.98, 

-3.00, 

-.91, 

1.21, 

3.72, 

7.73, 

15.57, 

23.41 , 

31.25, 

8. 

-4.93, 

-3.0l, 

-1.05, 

.99, 

3.45, 

7.00, 

13.90, 

20.79, 

27.69, 



& 

-4.91* 

-2.99* 

-.98, 

1.10, 

3.59, 

7.41, 

13 

.97, 

20.52, 

27, 

► 08 * 

& 

-4.88* 

-2.97* 

-.91, 

1.24, 

3.79, 

7.78, 

13 

.94, 

20.09, 

26 

.25, 

t. 

-4.87, 

-2.94* 

— .83, 

1.37, 

4.02, 

8.08, 

13 

.72* 

19.35, 

24, 

► 99, 

(. 

-4.84* 

-2.91* 

-.75, 

1.52, 

4.27, 

8.37, 

13 

.63, 

18.89, 

24, 

.16, 

& 

-4.83* 

-2.88* 

-.65, 

1.67, 

4.52, 

8.62, 

13, 

.56, 

18.49, 

23, 

► 43, 

8. 

-4.64* 

-2.70, 

-.18, 

2.54, 

5.75, 

9.89, 

14, 

.11, 

18.32, 

22, 

► 53, 

8. 

-4.50* 

-2.55, 

.15, 

3.22, 

6.83, 

10.67, 

14 

.52, 

18.37, 

22, 

► 21, 

& 

-4.37* 

-2.49, 

.26, 

3.88, 

7.70, 

11.66, 

15 

.62, 

19.58, 

23, 

.54/ 

DATA( (ALP115(J» 

N) , N= 1 , 

r-4 

II 

*> 

,13)/ 







8. 

-5.27* 

-3.06, 

-.82, 

1.34, 

4.19, 

7.50, 

11 

.07, 

14.64, 

18, 

.21, 

8. 

-5.37* 

-2.99, 

-.75, 

1.33, 

3.86, 

7.02, 

10 

.47, 

13.91, 

17, 

.36, 

& 

-5.40* 

-2.90, 

-.71, 

1.26, 

3.63, 

6.53, 

9 

.87, 

13.20, 

16, 

.53, 

8. 

-5.43* 

-2.85, 

-.70, 

1.22, 

3.52, 

6.18, 

9, 

.46, 

12.74, 

16, 

.02, 

8. 

-5.42* 

-2.81, 

-.70, 

1.16, 

3.30, 

5.83, 

8, 

.92, 

12.05, 

15, 

► 17, 

5. 

-5.42* 

-2.79, 

-.71, 

1.12, 

'3.19, 

5.64, 

8, 

.63, 

11.68, 

14, 

.73, 

& 

-5.44, 

-2.77, 

-.71, 

1.09, 

3.10, 

5.45, 

8 

.90, 

12.64, 

16, 

.37, 

8. 

-5.49, 

-2.73* 

-.72, 

1.04, 

3.02, 

5.40, 

10, 

.11, 

15.51, 

20, 

.92, 

8. 

—5 . 54 » 

-2.69, 

— • 70 , 

1.03, 

3.08, 

5.94, 

13, 

.26, 

20.67, 

28, 

,07, 

8. 

—5 .60 * 

-2.64, 

-.58, 

1.24, 

3.84, 

9.02, 

17 

.18, 

25.35, 

33, 

.51, 

8. 

-5.39* 

-2.47, 

-.24, 

1.87, 

5.05, 

13.07, 

22, 

.37, 

31.67, 

40, 

,98, 

8. 

-4.86* 

-1.83, 

.22, 

2.78, 

7.23, 

17.49, 

27, 

.74, 

38.00, 

48, 

,26, 

8, 

-4.25, 

-1 .53, 

.50, 

3.17, 

8.52, 

17.22, 

25, 

.91, 

34.61, 

43, 

,30/ 

DATA ( ( ALP1 15 (J*N) * N=1 » 9) , J = 14 , 26 ) / 







8. 

-4.58, 

-1.74, 

.25, 

2.65, 

7.36, 

15.36, 

23, 

.36, 

31.36, 

39, 

,36, 

& 

-5.46* 

-2.51, 

-.21, 

1.96, 

5.65, 

13.25, 

21, 

.10, 

28.94, 

36, 

,78, 

8 

-5.52* 

-2.97 , 

-.63, 

1.48, 

4.62, 

11.52, 

19, 

.52, 

27.52, 

35, 

,52, 

8 

-5.54, 

-2.97, 

-.72, 

1.30, 

4.14, 

11.22, 

19, 

.91, 

28.61, 

37, 

.30, 

8 

-5.56* 

-2.96, 

-.70, 

1.37, 

4.38, 

11.57, 

20, 

.09, 

28.60, 

37, 

.11, 

8 

-5.56, 

-2.98, 

-.67, 

1.47, 

4.63, 

11.84, 

20, 

.00, 

28.16, 

36, 

,33, 

8 

-5.54, 

-2.97, 

-.64, 

1.56, 

4.90, 

12.00, 

19, 

.69, 

27.38, 

35, 

,08, 

8 

-5.52* 

-2.97, 

-.61, 

1.65, 

5.18, 

12.11, 

19, 

.38, 

26.65, 

33, 

,93, 

8 

-5.49, 

-2.96, 

-.57, 

1.74, 

5.42, 

12.56, 

19, 

.96, 

27.37, 

34, 

,78, 

8 

-5.49, 

-2.96, 

-.54, 

1.86, 

6.65, 

12,69, 

20, 

.30, 

27.70, 

35, 

.11, 

8 

-5,44* 

-2.84, 

-.32, 

2.66, 

7.30, 

14.70, 

22, 

.11, 

29.52, 

36, 

,93, 

8 

-5.40* 

-2.71, 

-.10, 

3.39, 

8.71 , 

16.55, 

24, 

.39, 

32.24, 

40, 

, 08 , 

8 

-5.35* 

-2.59, 

.18, 

3.92, 

9.84, 

18.00, 

26, 

.16, 

34.33, 

42, 

,49/ 

DAT A ( ( ALP1 18 (J» 

N) »N=1 ,9) , J=1 

,13)/ 







8 

-6.10* 

-3.26, 

-.59, 

1.79, 

4.94, 

9,17, 

13, 

.52, 

17.87, 

22, 

,22, 

8 

-6.18, 

-3.17, 

-.49, 

1.72, 

4.77, 

8.61, 

12, 

.53, 

16.45, 

20, 

,37, 

8 

-6.42* 

-3, 08 , 

-.47, 

1.64, 

4,46* 

8.02, 

11, 

.98, 

15.94, 

19, 

,90, 

8 

-6.25, 

-2.92, 

-.47, 

1.59, 

4.26, 

7.47, 

10, 

.98, 

14.49, 

18, 

,00, 

8 

-5.94, 

-2.71, 

-.52, 

1.52, 

3.99, 

6.78, 

10. 

.32, 

13.86, 

17. 

,40, 

8 

-5.76* 

-2.61, 

-• 52 , 

1.48, 

3.94, 

6.78, 

10. 

.59, 

14.40, 

18. 

,21, 

8 

-5.61* 

-2.51, 

-. 51 , 

1.51, 

4.14, 

7.58, 

12. 

.02, 

16.47, 

20. 

,91, 

8 

-5.44* 

-2.24, 

-.45, 

1.70, 

4.81, 

9.31, 

13, 

.91, 

18.51, 

23. 

,10, 

8 

-5.17, 

-1.96, 

-.21, 

2.22, 

6.44, 

11.56, 

16. 

.69, 

21.82, 

26. 

,95, 

8 

-4.93* 

-1.77, 

.31, 

3.17, 

9.30, 

16.70, 

24, 

.11, 

31.52, 

38, 

,93, 

8 

-4.69, 

-1.52, 

.99, 

4.57, 

14.40, 

25.83, 

37, 

.26, 

48.69, 

60. 

,11, 

8 

-4.48, 

-1.36, 

1.33, 

4.83, 

17.14, 

31.43, 

45, 

.71, 

60.00, 

74, 

29, 

8 

-4.34* 

-1.64, 

.93, 

3.87, 

16.17, 

33.57, 

50, 

.96, 

68.35, 

85. 

,74/ 

DATA ( (ALP118( J* 

N) ,N=1,9) »J= 14,26)/ 







8 

-4.73, 

-2.12, 

.28, 

2.83, 

10.72, 

26.72, 

42, 

.72, 

58.72, 

74. 

,72, 

8 

-5.09, 

-2.61, 

-.27, 

1.90, 

6.22, 

21.04, 

35, 

.85, 

50.67, 

65. 

,48, 

8 

—5 . 46 * 

-2.83, 

— . 48 , 

1.66, 

5.49, 

16.65, 

28, 

.41, 

40.18, 

51. 

,94, 

8 

-5.71, 

-2.91, 

-.46, 

1.74, 

5.69, 

16.80, 

28, 

.23, 

39.66, 

51. 

,09, 


■I 
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V. 


S. -5.73* -2.92* 

-.44, 

1.81, 

5.88, 

17.53, 

29.29, 

41.06, 

52.82, 

Si -5.69* -2.87* 

-.40, 

1.90, 

6.23, 

17.66, 

29.09, 

40.51 , 

51.94, 

S. -5.65* -2.83* 

-.37, 

1.99, 

6.65, 

18.41, 

30.18, 

41.94, 

53.71, 

S. -5.61* -2.7y» 

-.34, 

2.12, 

7.09, 

18.51, 

29.94, 

41.37, 

52.80, 

& -5.56* -2.75* 

-.31, 

2.25, 

7.44, 

18.56, 

29.67, 

40.78, 

51.89, 

S -5.57, -2.74, 

-.28, 

2.37, 

7.83, 

18.94, 

30.06, 

41.17, 

52.28, 

Si -5.51* -2.69, 

-.11, 

2.91, 

10.00, 

20.81, 

31.62, 

42.43, 

53.24, 

Si -5.42, -2.68, 

.10, 

3.51, 

12.18, 

23.94, 

35.71, 

47.47, 

59.24, 

& -5.45, -2.6l, 

.23, 

3.94, 

13.76, 

25.88, 

38.00, 

50.12, 

62.24/ 

DATA ( (ALP121 ( J» 

N) *N=1 ,9) , J=1 , 

13)/ 




30.67, 

Si -4.06, -2.24, 

-.20, 

2.29, 

6.42, 

12.48, 

18.55, 

24.61, 

Si -4.08, -2.24, 

— . 20 , 

2.29, 

6.33, 

10.98, 

15.63, 

20.28, 

24.93, 

Si -4.09, -2.27, 

-.21, 

2.19, 

6.04, 

9.92, 

13.81, 

17.69, 

21.57, 

S -4.17, -2.31* 

-.27, 

2.06, 

5.76, 

9.00, 

12.23, 

15.45, 

18.68, 

h -4.23, -2.43, 

-.35, 

1.88, 

5.20, 

8.91, 

12.80, 

16.68, 

20.56, 

f. -4.26, -2.49, 

-.34, 

1.89, 

5.32, 

10.07, 

15.01, 

19.95, 

24.89, 

& —4.31, —2.57, 

-.20, 

2.28, 

6.07, 

12.97, 

19.86, 

26.76, 

33.66, 

Si -4.21, -2.44, 

.21, 

3.23, 

8.47, 

14.35, 

20.24, 

26.12, 

32.00, 

Si -4.09, -2.20, 

.74, 

4.90, 

12.26, 

19.81, 

27.36, 

34.91, 

42.45, 

S -3.82, -1.84, 

1.43, 

7.76, 

19.88, 

32.00, 

44.12, 

56.24, 

68.36, 

Si -3.66, -1.79, 

1.86, 

9.90, 

28.95, 

48.00, 

67.05, 

86.10,105.14, 

& -3.83, -2.10, 

1.31, 

7.50, 

27.50, 

47.50, 

67.50 , 

87.50,107.50, 

S, -4.24, -2.56, 

-.09, 

3.85, 

16.52, 

31.33, 

46.15, 

60.96, 

75.78/ 

DATA( (ALP121 <3, 

N) *N=1 ,9) *J= 14*26)/ 



84.47,108.00, 

S -4.84, -3. 07 , 

-1.09, 

2.16, 

13.88, 

37.41, 

60.94, 

S. -5.41, -3.50, 

-1.49, 

1.58, 

8.96, 

26.35, 

43.74, 

61.13, 

78.52, 

S. -5.34, -3.50, 

-1.54, 

1.66, 

8.47, 

21.80, 

35.13, 

48.47, 

61 .80, 

S. -5.29, -3.46, 

-1.50, 

1.80, 

9.04, 

23.85, 

38.67, 

53.48, 

68.30, 

Si -5 .24, -3.40, 

-1.40, 

1.96, 

9.38, 

23.17, 

36.97, 

50.76, 

64.55, 

S. -5.20, -3.34, 

-1.31, 

2.09, 

9.80, 

23.13, 

36.47, 

49.80, 

63.13, 

Si -5.15, -3.28, 

-1.22, 

2.25, 

10.19, 

23.10, 

36.00* 

48.90, 

61.81, 

Si -5.11, -3.21* 

-1.13, 

2.40, 

10.50, 

23.00, 

35.50, 

48.00* 

60.50, 

Si -5.06, -3.18, 

-1.04, 

2.57, 

10.85, 

22.97, 

35.09, 

47.21, 

59.33, 

Si -5.01, -3.08, 

-.95, 

2.75, 

11.18, 

22.94, 

34.71, 

46.47, 

58.24, 

Si -5.07, -2.82, 

— . 53 , 

3.70, 

14.19, 

26.69, 

39.19, 

51.69, 

64.19, 

(, -4.96, -2.61, 

-.24, 

4.71, 

16.44 , 

28.94, 

41.44, 

53.94, 

6b . 44 , 

Si -4.81, -2.55, 

-.03, 

5.78, 

19.00, 

32.33, 

45.67, 

59.00, 

72.33/ 

DATA (( CD 104(1, J),J= 1,26 ),!=!( 

,5)/ 



.0050, 

.0050, 

1 .0049, .0050, 

.0050, 

.0050, 

.0050, 

.0050, 

.0050, 

1 .0050, .0051, 

.0051 , 

.0054, 

.0073, 

.0146, 

.0185, 

.0224, 

.0256, 

1 .0274, .0285, 

.0285, 

.0282, 

.0275, 

.0224, 

.0174, 

.0149, 

.0050, 

2 .0049, .0050, 

. 0 05 0 , 

.0050, 

.0050, 

.0050, 

.0050, 

.0050, 

2 .0050, .0050, 

.0053, 

.0067, 

.0114, 

.0161 , 

.0190, 

.0216, 

.0236, 

2 .0252, .0268, 

• 0275 , 

.0280, 

.0285, 

.0291, 

.0275, 

.0245, 

.0072, 

3 .0079, .0075, 

.0073, 

.0072, 

.0072, 

.0072, 

.0072, 

.0072, 

3 .0072, .0073, 

.0082, 

.0108, 

.0169, 

.0236, 

.0274, 

.0301, 

.0325, 

3 .0341, .0356, 

.0370, 

.0380, 

.0390, 

.0458, 

.0523, 

.0585, 

.0211, 

4 .0334, .0247, 

.0199, 

.0181, 

.0173, 

.0172, 

.0176, 

.0185, 

4 . 0239 , • 0266 , 

.0309, 

• 0364 , 

.0418, 

.0475, 

.0534, 

.0592, 

.0651, 

4 .0700, . 0749 , 

.0798, 

.0841, 

.0874, 

.1019, 

.1114, 

.1176, 

.0335, 

5 .0569, .0409, 

.0335, 

.0306, 

.0297, 

.0296, 

.0302, 

.0313* 

5 .0401, .0486, 

.0571, 

.0669, 

.0780, 

.0891, 

•1002, 

.1114, 

.1226, 

5 .1306, .1385, 

.1465, 

.1526, 

.1568, 

.1807, 

.1979, 

.2068/ 


DAT A ( (CD 106(1, J),J=1, 

26) ,1=1,5)/ 



•0053, 

.0053, 

1 .0053, .0053, 

• 0 0&3 1 

.0053, 

.0053, 

• 0053 , 

.0053, 
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1 « 0055 , .0059* .0071* ,0094# .0149, 

.0210, 

.0269, 

.0318, 

• 0346, 

1 .0355* .0360, .0363, .0363, .0363, 

.0320, 

.0282, 

.0247, 


2 .0052, .0053, .0053* .0053, .0053, 

.0053, 

.0053, 

.0053, 

•0053, 

2 .0055, .0060, .0071, .0104, .0163, 

.0228, 

.0285, 

.0327, 

.0354, 

2 .0367, .0380, .0387, .0395* ,0399, 

.0401, 

.0374, 

.0343, 


3 .0088, .0076* .0075, .0075, .0075, 

.0075, 

.0075, 

.0075, 

.0075, 

3 .0077, ,008b, .0104, .0148* .0216, 

.0283, 

.0344, 

.0380, 

.0410, 

3 .0431, .0447, .0463, ,0478, .0492, 

.0573, 

.0640, 

.0700, 


4 .0282, .0185, .0146, .0128, .0120, 

.0118, 

.0122, 

.0126, 

.0140, 

4 .0169, .0244, .0318, .0392, .0467, 

.0541, 

.0627, 

.0734, 

.0813, 

4 .0871, .0911, .0950, .0989, .1019, 

.1155, 

.1226, 

.1287, 


5 .0514, .0370, .0303, .0294, .0290, 

.0295, 

.0302, 

.0324, 

.0367, 

5 .0432, .0545, .0676, .0806, .096R, 

.1136, 

. 1 304 , 

.1415, 

.1523, 

5 .1606, .1668, .1730, .1790, .1842, 

.2094, 

.2270, 

.2449/ 


DAT A ( (CD109(I,J) ,J=1,26) ,1 = 1,5)/ 

1 .0055, .0055, .0055, .0056, .0057, 

.0058, 

• 0060 , 

.0062, 

.0064, 

1 .0066, .0071, .0081, .0147, .0220, 

.0286, 

.0348, 

.0400, 

.0434, 

1 .0466, .0489, .0512, .0532, .0535, 

.0539, 

.0491, 

.0433, 


2 .0061, .0060, .0060, .0060, .0060, 

.0061, 

.0063, 

.0065, 

.0066, 

2 .0070, .0075, .0084, .0155, .0233, 

.0301, 

.0364, 

.0418, 

.0451, 

2 .0482, .0501, .0521, .0538, .0543, 

.0546* 

.0527, 

.0485, 

3 .0091, .0089, .0088, .0088, .0088, 

.0087, 

.0087, 

.0089, 

.0090, 

3 .0099, .0118, .0185, .0260, .0342, 

• 0424 , 

.0501, 

.0538, 

.0576, 

3 .0601, .0627, .0652, .0663, .0674, 

.0717, 

.0765, 

.0788, 


4 .0200, .0164, .0146, .0141, .0141, 

.0147, 

.0153, 

.0166, 

.0188, 

4 .0245, .0301, .0365, .0482, .0599, 

.0714, 

.0821, 

.0922, 

.0985, 

4 .1047, .1098, .1149, .1198, .1226, 

.1307, 

.1322, 

.1336, 


5 .0384, .0305, .0264, .0249, .0242, 

.0246, 

.0260, 

.0292, 

.0390, 

5 .0489, .0590, .0723, .0856, .0988, 

.1107, 

.1226, 

.1345, 

.1464, 

5 .1533, .1595, .1657, .1719, .1775, 

.1927, 

.1987, 

.1934/ 

DATA ( (CD 112(1, J) * J=1 » 26) *I=1#5)/ 

1 .0060, .0060, .0060, .0060, .0060, 

. 0060 , 

.0060, 

•0060, 

.0060, 

1 .0067, .0081, .0143, .0255, .0368, 

.0481 , 

.0564, 

.0642, 

.0694, 

1 .0745, .0765, .0786, .0798, .0802, 

.0814, 

.0784, 

.0704, 


2 .0072, .0072, .0071, .0071, .0071, 

.0071, 

.0071, 

.0071, 

.0074, 

2 .0081, .0104, .0168, .0268, .0366, 

.0448, 

.0521, 

.0591, 

.0649, 

2 .0695, .0741, .0777, .0797, .0817, 

.0851, 

.0839, 

.0777, 


3 .0110, .0111, .0112, .0112, .0113, 

.0113, 

.0115, 

.0120, 

.0128, 

3 .0147, .0220, .0301, .0389, .0475, 

.0559, 

.0630, 

.0695, 

.0756, 

3 .0803, .0851, .0896, .0926, .0957, 

.1074, 

.1090, 

.1102, 


4 .0200, .0198, .0197, .0196, .0196, 

.0196, 

.0198, 

•0204, 

.0243, 

4 .0366, .0489, .0616, .0747, .0862, 

.0977, 

.1080, 

.1157, 

.1234, 

4 .1312, .1361, .1398, .1436, .1473, 

.1597, 

.1648, 

.1671, 

5 .0324, .0302, .0283, .0283, .0290, 

,0297, 

.0318, 

.0374, 

.0535, 

5 .0712, .0887, .1062, .1225, .1380, 

.1536, 

. 1688, 

.1820, 

.1952, 

5 ,2084, .2215, .2294, .2373, .2452, 

.2679, 

.2759, 

.2868/ 


DAT A ( (CD115(I,J) ,J=1,26) ,1 = 1,5)/ 

1 .0070, .0070, .0070, .0070, .0070, 

.0070, 

.0070, 

.0070, 

.0076, 

1 .0142, .0242, .0364, .0482, .0595, 

.0704, 

• OR 1 2 ♦ 

.0920, 

.1005, 

1 .1082, .1158, .1200, .1240, .1252, 

.1225, 

.1123, 

.1023, 

2 .0083, .0082, .0081, .0081, .0081, 

.0082, 

•0084, 

.0094, 

•0114, 

2 .0195, .0309, .0412, .0520, .0624, 

.0723, 

.0808, 

.0892, 

.0974, 

2 .1049, .1116, .1168, .1220, .1247, 

.1259, 

.1169, 

.1058, 


3 .0153, .0154, .0154, .0153, .0153, 

.0153, 

.0154, 

.0164, 

.0206, 

3 .0295, .0399, .0508, .0610, .0706, 

.0803, 

.0900, 

.0993, 

.1076, 



3 .1158, 

.1208* .1257* 

.1300, .1332, 

.1380, .1329, 

.1258, 

.0457, 

4 • 0220 1 

.0238* .0247, 

.0251, .0255, 

.0258, .0274, 

.0340, 

4 .0579, 

.0703* .0826* 

.0949, .1070, 

.1187, .1288, 

.1373, 

.1456, 

4 . 1533 * 

.1610* .1673, 

.1713, .1752, 

.1827, .1785, 

.1711, 


5 . 0328 » 

.0334, .0343, 

.0349, .0362, 

.0385, .0469, 

.0603, 

. 0760 , 

5 .0934, 

.1108, .1281, 

.1459, .1638, 

.1800, .1949, 

.2098, 

.2219, 

5 .2324, 

.2429, .2501, 

.2553, .2604, 

.2716, .2743, 

.2771/ 


DATA ( (CD1 18 ( I » J) » J=1 *26) , 1=1 »5) / 

1 . 0084 , . 0094 , .0099, .0101, .0104, 

.0105, .0108, 

.0129, 

.0202, 

1 .0317, 

.0432, .0542, 

.0646, .0751, 

.0848, .0942, 

.1035, 

.1129, 

1 .1195, 

.1240, .1284, 

.1328, .1373, 

.1443, .1451, 

.1451, 

.0255, 

2 .0085, 

.0099, .0107, 

.0111, .0114, 

.0116, .0120, 

.0151, 

2 .0358, 

.0468* .0591, 

.0712, .0818, 

.0923, .1023, 

.1112, 

.1202, 

2 .1292, 

.1333, .1371, 

.1410, .1449, 

.1506, .1512, 

.1518, 


3 .0165, 

.0192, .0206, 

.0213, .0219, 

.0223, .0231, 

.0257, 

.0364, 

3 .0488, 

.0610, .0733, 

.0855, .0959, 

.1053, .1146, 

.1240, 

.1309, 

3 .1368, 

.1427, .1486, 

.1545, .1605, 

.1679, .1700, 

.1700, 

.0715, 

4 .0264, 

.0341, .0380, 

.0399, .0419, 

.0430, .0450, 

.0579, 

4 .0856, 

• 0998 , .1139, 

.1281, .1399, 

.1507, .1615, 

.1713, 

.1791, 

4 .1862, 

.1930, .1976, 

.2022, .2068, 

.2171, .2198, 

.2182, 

.1084, 

5 .0396, 

.0511* .0568, 

.0597, .0625, 

.0640, .0679, 

• 0 85 7 , 

5 .1308, 

.1527, .1746, 

.1964, .2183, 

.2365, .2515, 

.2665, 

.2815, 

5 .2965, 

.3050, .3085, 

.3120, .3155, 

.3206, .3244, 

.3282/ 


DATA ( (CD121 ( I « J) , J=1 » 
1 .0092, .0107, .0114, 

26) ,1=1,5)/ 
.0118, .0123, 

.0129, .0138, 

.0164, 

.0256, 

1 .0372, 

.0500, .0634, 

.0756, .0862, 

.1010, .1138, 

.1246, 

.1351, 

1 .1455, 

•1530, .1605, 

.1680, .1717, 

.1780. .1780, 

. 1780, 

.0295, 

2 .0109, 

.0125, .0133, 

.0137, .0141, 

.0146, .0156, 

.0199, 

2 .0427, 

.0555, .0681, 

.0808, .0938, 

.1069, .1194, 

.1314, 

.1434, 

2 .1525, 

.1605, .1685, 

.1750, .1782, 

.1842, .1842, 

.1842, 

.0496, 

3 .0211* 

.0234, .0246, 

.0252, .0257, 

.0263, .0282, 

• 0355 , 

3 . 0626 , 

.0761* .0897, 

.1027, .1156, 

.1285, .1401, 

.1515, 

.1628, 

3 .1715, 

.1778, .1842, 

.1905, .1950, 

.2029, .2047, 

.2064, 


4 .0433, 

. 0485 , .0511, 

.0528, .0560, 

.0592, .0658, 

.0777, 

.0939, 

4 .1088* 

.1225, .1362, 

.1500, .1639, 

.1778, .1898, 

.2001 , 

.2105, 

4 .2195, 

.2269, .2343, 

.2410, .2461, 

.2581, .2557, 

.2533, 


5 .0661, 

.0696, .0714, 

.0722, .0807, 

.0988, .1165, 

.1337, 

.1508, 

5 .1684, 

.1863, .2041, 

.2219, .2389, 

.2554, .2719, 

.2884, 

.2982, 

5 .3047, 

.3112, .3177, 

.3218, .3256, 

.3390, .3340, 

.3291/ 


DATA (XMI ( J) , J=1 ,26) /. 

3, .5, .6, .65, .7 

,.725, .75*. 775 

, 


& . 8 , . 825 » . 85 , • 875 , . 9 , 

.925, .95, .975, 

1.0,1.025,1.05 

,1.075, 


8.1.1,1.125,1.15,1.3,1. 
DAT A ( CL I ( J) ,J = 1 ,9)/-. 

45,1.6/ 

4,— .2, 0*0*. 2,. 

4, .6, .8, 1*0,1. 

2/ 



DATA (ALP I ( J) ♦ J = 1 ,7) /-4. 0 »-2.0» 0.0 *2. 0*4. 0*6. 0*8. 0/ 
DATA(CLII(J)»J=l*5)/0.0,.2».4».6,.8/ 

I ORDER ( 1 ) =ION£>ER (2) =1 


IPT 

(D 

= -l 






IF 

(IKEY .EQ. 2) GO TO 

1000 




IF 

(TR 

.LT. -04) GO TO 

9 





IF 

(TR 

.GE. .04 .AND. 

TR 

.LT. .06) 

GO 

TO 

1 

IF 

(TR 

.GE. .06 .AND. 

TR 

.LT. .09) 

GO 

TO 

2 

IF 

(TR 

*GE. .09 .AND. 

TR 

.LT. .12) 

GO 

TO 

3 

IF 

(TR 

.GE. .12 .AND. 

TR 

.LT. .15) 

GO 

TO 

4 

IF 

(TR 

.GE. .15 .AND. 

TR 

,LT. .18) 

GO 

TO 

5 

IF 

(TR 

.GE. .18 .AND. 

TR 

.LT. .21) 

GO 

TO 

6 
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IF (TR .GE. .21) GO TO 7 

9 CALL IBI (7,ALPI,26,XMI,7,CLl04,IORDER t lPT.AA,XM*CLFT04,IERR) 
CL=CLFT04 
GO TO 400 

1 CALL IBI ( 7* ALP I *26fXMI»7»CL104*IORDER»IPT»AA*XM»CLFT04»IERR) 
IPT ( 1 ) =-l 

CALL IBI (7,ALPI.26»XMI,7»CL106*IORDER. IPT.AA,XM»CLFT06»IERR) 
CL=CLFT04 ♦ (CLFT06-CLFT04)*{ ( TR-. 04) / ( . 06-. 04) ) 

GO TO 400 

2 Call IBI (7,ALPl.26.XMl,7,CLl06»lORDER t lPT»AA,XM»CLFT06,IERR) 
IPT ( 1 ) =-l 

Call IBI (7.ALPl*26 t XMl.7,CLl09,lORDER. IPT . AA » XM* CLFT09 , 1 ERR) 
CL=CLFT06 ♦ (CLFT09 - CLFT06 ) * ( ( TR-, 06 ) / ( , 09-. 06) ) 

GO TO 400 

3 CALL IBI (7*ALPI.26,XMI,7,CL109,IOROER»IPT.AA,XM.CLFT09,IERR) 
IPT ( 1 ) =-l 

CALL IBI (7tALPI,26»XMI,7»CL112» IOROERj IPT.AA,XM»CLFT12» IERR) 
CL=CLFT09* (CLFT12-CLFT09) * ( ( TR-. 09 ) / ( . 1 2-. 09 ) ) 

GO TO 400 

4 CALL IBI (7.ALPI,26.XMI,7»CLH2»I0RDER.IPTtAA»XM.CLFT12»IERR) 
IPT (1)=-1 

CALL IBI (7»ALPI.26»XMI,7,CLllt3»I0RDER.IPT,AA.XM»CLFT15»IERR) 
CL=CLFT12 ♦ (CLFT15-CLFTI2) »< (TR-. 12) / ( . 15-, 12) ) 

GO TO 400 

5 CALL IBI (7»ALPI*26»XMI,7»CLII5»I0RDER.IPT»AA»XM*CLFT15.IERR) 
IPT (1)=-1 

CALL IBI (7»ALPI.26»XMI,7,CL118,I0RDER»IPTtAA,XM,CLFT18,IERR) 
CL=CLFT15+ (CLET18-CLFT15) « ( ( TR-. 1 5) / ( . 1 8- . 15) ) 

GO TO 400 

6 CALL IBI (7,ALPI,26»XMI»7,CLH6» IORDER, IPT»AA,XM»CLFT18* IERR) 
IPT ( 1 ) =-l 

CALL IBI (7.ALPI,26.XMI,7,CL121»I0RDER» IPT » AA , XM t CLFT21 » I ERR ) 
CL=CLFT18MCLFT21-CLFT18)*( (TR-.18) / ( .21-. 18) ) 

GO TO 400 

7 CALL IBI (7»ALDI.26.XMI,7»CL121»I0RDER»IPT.AA,XM»CLFT21»IERR) 
CL=CLFT21 

GO TO 400 
1000 CONTINUE 


IPT 

(1) 

=-l 









IF 

(TR 

• LT. 

.04) 

GO TO 

90 






IF 

(TR 

.GE. 

.04 

.AND. 

TR 

.LT. 

.06) 

GO 

TO 

10 

IF 

(TR 

.GE. 

.06 

.AND. 

TR 

.LT. 

.09) 

GO 

TO 

20 

IF 

(TR 

• GE. 

.09 

.AND. 

TR 

.LT. 

.12) 

GO 

TO 

30 

IF 

(TR 

.GE. 

.12 

.AND. 

TR 

.LT. 

.15) 

GO 

TO 

40 

IF 

(TR 

.GE. 

.15 

.AND. 

TR 

.LT. 

.18) 

GO 

TO 

50 

IF 

(TR 

.GE. 

.18 

• AND. 

TR 

.LT. 

.21 ) 

GO 

TO 

60 

IF 

(TR 

.GF, 

.21) 

GO TO 

70 







90 CALL IBI (26»XMI*9.CLI»26»ALP104»IORDER.IPT*XM*CL»AA04»IERR) 
AA=AA04 
GO TO 400 

10 CALL IBI (26»XMI»9fCLI*26*ALP104,IORDER.IPT,XM.CL»AA04.IERR) 
IPT (1) = -1 

CALL IBI (26*XMI.9.CLI»26.ALP106,IORDER»IPT»XM,CL»AA06,IERR) 
AA=AA04 ♦ (AA06-AA04) » ( ( TR-. 04 ) / ( . 06- . 04 ) ) 

GO TO 400 
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20 


CALL I B I (26»XMI*9»CLI*26,ALP106, IORDER, IPT, XM,CL»AA06, IERR) 
IPT (1) = -1 

CALL I B I (26»XMI,9»CLI»26,ALP109, IORDER, IPT, XM,CL*AA09, IERR) 
AA = AA06 ♦ ( A AO 9 - AA06)*((TR - . 06 ) / ( . 09- . 0 6 ) ) 

GO TO 400 

30 CALL IBI <26»XMI»9»CLI»26,ALP109,IORDER»IPT,XM,CL*AA09,IERR) 
IPT (1) = -1 

CALL IBI (26*XMI»9»CLI»26,ALP112»I0RDER»IPT»XM*CL,AA12»IERR) 
AA=AA09+ ( AA12-AA09) *( ( TR- . 09 ) / ( . 1 2- . 0 9 ) ) 

GO TO 400 

40 CALL IBI (26»XMI,9»CLI,26,ALP112,I0RDER*IPT,XM,CL»AA12,IERR) 
IPT (1) = -1 

CALL IBI (26*XMI,9*CLI*26,ALP115,I0RDER,IPT,XM,CL*AA15,IERR) 
AA=AA12+ (AAlb-AAl2)»( (TR-. 12) / ( . 15-. 12) ) 

GO TO 400 

50 CALL IBI (26»XMI,9*CLI*26tALPll5tI0RDER, IPT ♦ XM ,CL» AA15 , 1 ERR ) 
IPT (1) = -1 

CALL IBI (26»XMI»9»CLI»26»ALP118,I0RDER»IPT»XM,CL*AA18,IERR) 
AA=AA15* (AA18-AA15)<M < TR-. IS ) / ( . 1 8- . 15 ) ) 

60 CALL IBI (26*XMI*9*CLIf26f ALPllBtlORDERf IPTfXM,CL*AAl8*IERR) 
IPT (1) = -1 

CALL IBI (26, XMI, 9, CLI»26,ALP121, IORDER, IPT, XM,CL»AA21, IERR) 
AA=A A 1 8* (AA21-AA18)* ( ( TR- . 1 8 ) / ( . 21 - . 18 ) ) 

GO TO 400 

70 CALL I B I (26*XMl*9*CLI*26tALP121*l0RDER*IPT*XM*CL*AA21tlERR> 
AA= AA2 1 
400 CONTINUE 


IPT 

(1) 

= -l 









IF 

(TR 

.LT. 

.04) 

GO TO 

91 






IF 

(TR 

.GE. 

• 04 

.AND. 

TR 

.LT. 

.06) 

GO 

TO 

11 

IF 

(TR 

.GE. 

.06 

• AND. 

TR 

.LT. 

.09) 

GO 

TO 

21 

IF 

(TR 

.GE. 

.09 

.AND. 

TR 

. LT . 

.12) 

GO 

TO 

31 

IF 

(TR 

.ge. 

.12 

.and. 

TR 

.LT. 

.15) 

GO 

TO 

41 

IF 

(TR 

.GE. 

. 15 

.AND. 

TR 

.LT. 

. 18) 

GO 

TO 

51 

IF 

(TR 

.GE. 

.18 

• AND. 

TR 

.LT. 

.21 ) 

GO 

TO 

61 

IF 

(TR 

.GE. 

.21 ) 

GO TO 

' 71 







91 CALL IBI (5»CLI I »26»XMI ,5,CD104, IOROER* I PT » CL » XM * CDRG04 » IERR) 
CD=CDRG04 
WRITE (6,201) TR 

201 FORMAT (*0THlCKNESS RAT 1 0=* , F5 • 3 , * IS OUT OF RANGE. 

5.*/* THE VALUES FOR T/C=.04 HAVE BEEN RETURNED*) 

GO TO 250 

11 CALL IBI (5,CLII,26,XMl t 5,COl04,IORDER,IPT,CL,XMtCDRG04»IERR) 
IPT ( 1 ) =- 1 

CALL IBI (5»CLI I »26*XMI*5»CD106» IORDER*IPT »CL»XM*CDRG06, IERR) 
CD=CDRG04 ♦ (CDRG06-CORG04) » ( (TR-. 04) / ( . 06-. 04) ) 

GO TO 250 

21 CALL IBI (5,CLII,26,XMI,5,CD106,IORDER, IPT, CL»XM»CDRG06, IERR) 
IPT ( 1 ) =-l 

CALL IBI (5,CLI 1,26, XMI ,5,CD109, IORDER, IPT,CL,XM,CDRG09» IERR) 
CD=CDRG06 ♦ (CDRG09 - CDRG06 ) * ( ( TR- . 06 ) / ( . 09- . 06 ) ) 

GO TO 250 

31 CALL IBI (5,CLII,26»XMI,5,CD109,IORDER,IPT*CL,XM,CDRG09,IERR) 
IPT (1)=-1 

CALL I B I (5,CLI I ,26,XMI ,5, CDl 12, IORDER, IPT,CL,XM,CDRG12, IERR) 
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ooooooooooooooooooooo 


CD=CDRG09+ ( CORGI 2-CDRG09)* ( ( TR-. 09 ) / ( . 12-. 09 > ) 

GO TO 250 

41 CALL IBI (5»CLlI*26»XMI*5»CD112»I0RDER*IPT» CL* XM* CORGI 2 » IERR ) 
IPT (1)=-1 

CALL IBI (5,CLII,26,XMI,5,CD115,I0RDER,IPT,CL,XM»CDRG15,IERR) 
CD=CDRG12 ♦ (CDRG15-CDRG12)*< ( TR- . 12) / ( . 15-. 1 2) ) 

GO TO 250 

51 CALL IBI (5,CLII,26*XMI,5,CD115,I0RDER, IPT, CL*XM*CDRG15, IERR) 
IPT (1)=-1 

CALL I B I (5»CLII»26*XMI*5*CD118» I ORDER, IPT* CL*XM*C0RG18» IERR) 
CD=CDRG15MCDRG18-CDRG15)#< (TR-. 15) / ( . 18-. 15) ) 

GO TO 250 

61 CALL IBI (5»CLlI»26»XMI*5»CD118*I0RDER»IPT» CL* XM»CDRG1 8 » IERR ) 
IPT <1)=-1 

CALL IBI (5,CLII,26,XMI,5,CD121, IORDER, IPT»CL»XM*CDRG21 , IERR) 
CD=CDRG18+ (C0RG21-CDRG18)# ( ( TR-. 18 ) / ( . 21-. IB) ) 

GO TO 250 

71 CALL IBI (5,CLII,26,XMI,5,CD121*I0RDER,IPT,CL*XM,C0RG21,IERR) 
CD=CDRG21 

IF (TR .GT. .21) WRITE (6*204) TR 
204 FORMAT (*0THICKNESS RATI0=* .F5. 3* * IS OUT OF RANGE. 

?,»/■* THE VALUES FOR T/C=.21 HAVE BEEN RETURNED.*) 

250 IF ( CL .GT. .8) GO TO 251 
RETURN 

251 CALL COMPUT(D.XM»ALT.COR*TR,AA.CDT.CL.CO,CLDES) 

CD=CDT 

RETURN 

END 


SUBROUTINE AER02 ( XLD* CL. CD, XM , A A, IKEY , TR t CLDES, ALT* COR ♦ D) 


THIS SUBROUTINE IS DESIGNED TO COMPUTE THE AIRFOIL 
CHARACTERISTICS FOR A 16 SERIES AIRFOIL WITH A GIVEN CAM8ER. 

THIS SUBROUTINE RELATES CL*CD. CL/CD, MACH»T/C» AND ALPHA. 

IT REPRESENTS THE DATA OF A 16-2XX AIRFOIL. 

XM=RELATIVE MACH NO. AT BLADE ELEMENT 
AA=ANGLE OF ATTACK IN DEGREES 
IKEYi: CL=CL (MACH, ALPHA, T/C) 

: CD=CD ( MACH, CL ,T/C) 

:XLD=CL/CD 

IKEY2 ! ALPHA=ALPHA(MACH,CL,T/C) 

: CD=CD(MACH,CL*T/C) 

:XLD=CL/CD 

TR=T/C 


DIMENSION I0RDER(2) ,IPT(2) ,ALP204 (26,9) , ALP206 (26,9) , 
ALP209 (26,9) , ALP212 (26,9) ,ALP215 (26,9) , ALP218 (26,9) , 
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& 

ALP221 (26,9) »CLI (9) , 

XMI (26) * ALP 1(7) 

,CL204(7,26) * 


& 

CL206 (7 

,26) » C|_2 09 ( 7 , 

26) ,0.212(7,26) 

» Cl_2 15 (7,26) , 


6. 

CL2 1 8 ( 7 

♦26) tCL22l (7, 

26) ,CD204 (5,26) 

» CD206 ( 5 * 26 ) , 


& 

CD209 (5 

,26) » CD2 12 (5, 

26) ,CD2l5 (5,26) 

»CD218 

(5,26) , 


& 

CD221 (5 

♦26) ♦CLII (5) 





DATA ( ( CL204 ( 1 , J ) »J=1» 

26) ,1=1,4)/ 




1 

- . ?3h , 

-.237, -.238, 

-.237, -.235, 

-.234, 

-.234, 

-.233, 

1 

-.230, 

-.220, -.203, 

-.181, -.159, 

-.144, 

-.148, 

-.165, 

1 

-.171, 

-.165, -.160, 

-.157, -.162, 

-.256, 

-.? 62* 

-.262, 

2 

-.019, 

-.025, -.028, 

-.031, -.034, 

- . 036, 

-.037, 

-.038, 

2 

-.032, 

-.019, .005, 

.029, .054, 

.066, 

. 056 , 

.036, 

2 

.027, 

.035, .043, 

.047, .036, 

-.124, 

-.151, 

-.153, 

3 

.188, 

.196, .213, 

.224, .236, 

.242, 

.250, 

.257, 

3 

.273, 

.281, .291, 

.302, .310, 

.309, 

.281, 

.255, 

3 

.247, 

.265, .285, 

.289, .277, 

.098, 

-.006, 

-.015, 

4 

.412, 

.427, .450, 

.462, .479, 

.488, 

.497, 

.507, 

4 

.526, 

.538, .550, 

• 553 , . 545 * 

.529, 

.512, 

.494, 

4 

.499, 

.517, .533, 

.540, .508, 

.286, 

.137, 

.106/ 

DATA ( ( CL204 ( I * J) , J = 1 , 

26) ♦ 1=5,7) / 




5 

.596, 

.629, .668, 

.693, .727, 

.744, 

.761, 

.780, 

5 

.791, 

.781, .770, 

.757, .740, 

.724, 

.714, 

.705, 

5 

.711, 

.725, .749, 

.764, .730* 

• 456 , 

.277, 

.214, 

6 

.784, 

.827, .868, 

.894, .935, 

.955, 

.973, 

.980, 

6 

.958, 

.945, .932, 

.917, .902, 

.886, 

.871, 

.856, 

6 

.860, 

.881* .906, 

.918, .884, 

.609, 

.402, 

.319, 

7 

.922, 

.973, 1.040, 

1.085, 1.111, 

1.106, 

1.099, 

1.085, 

7 

1.057, 

1.043, 1.029, 

1.014, 1.000, 

.987, 

.977, 

.971, 

7 

.977, 

.996, 1.022, 

1.034, .999, 

.744, 

.535, 

.430/ 

DATA( (CL206 ( I * J) »J = 1, 

26) , 1=1,4) / 




1 

-.206, 

-.206, -.206, 

-.206, -.206, 

—.206, 

-.206, 

-.207, 

1 

-.209, 

-.209, -.211, 

-.212, -.222, 

-.258, 

-.303, 

-.333, 

1 

-.277, 

-.261, -.249, 

-.256, -.271, 

-.323, 

-.284, 

-.224, 

2 

-.015, 

-.021* -.024, 

-.025, -.023, 

-.023, 

-.022, 

-.023, 

2 

-.024, 

-.025, -.025, 

-.025, -.041, 

—.086, 

-.135, 

-.141, 

2 

-.094, 

-.075, -.069, 

-.082, -.097, 

-.157, 

-.136, 

-.114, 

3 

.172, 

.183, .200, 

.209, .219, 

,224, 

.229, 

.234, 

3 

.249, 

.258, .268, 

.266, .237, 

.199, 

. 164, 

.160, 

3 

.206, 

. 226 , .227, 

.211, .191, 

.069, 

-.015, 

-.025, 

4 

.376, 

•403, .427, 

.447, .467, 

. 47 8 , 

.489, 

.500, 

4 

.523, 

.535, .523, 

.496, .462, 

.427, 

.406, 

.406, 

A 

.448, 

.472, .474, 

.448, .414, 

.220, 

.115, 

.096/ 

DATA ( (CL206 ( I * J) , J=1 , 

26) , 1=5,7) / 




5 

• 564 , 

.617, .658, 

.681, .711, 

.729, 

.746, 

.758, 

5 

.744, 

.719, .694, 

.669, .644, 

.619, 

.597, 

.592, 

5 

• 640 , 

.664, .664, 

. 635 , . 598 , 

.391, 

.255, 

.203, 

6 

.736, 

.793, .840, 

.878, .915, 

.931, 

.938, 

.922, 

6 

.875, 

.852, .829, 

.805, .782, 

.759, 

.737, 

.740, 

6 

.786, 

.804, .801, 

.783, .749, 

.547, 

.404, 

.315, 

7 

.864, 

.930, .999, 

1.035, 1.071, 

1.074, 

1.060, 

1.041, 

7 

1.003, 

.979, .954, 

.929, .904, 

.879, 

.854, 

.847, 

7 

.896, 

.920, .917, 

.892, .862, 

• 685 , 

.528, 

.430/ 

DATA ( ( CL209 ( I » J) ♦ J=1 , 

26) ,1=1,4)/ 




1 

-.174, 

-.133, -.183, 

-.183, -.193, 

-.199, 

- • 206 , 

-.217, 

1 

-.241, 

-.254, -.268, 

-.282, -.295, 

-.306, 

-.287, 

-.253, 

1 

-.214, 

34 

-.220, -.226, 

—.232, —.236, 

-.258, 

- . 264 » 

— • 264 , 


• 232* 
.176, 

.036, 

. 021 , 

.265, 

.236, 

.516, 

.*89, 


.791, 

.703, 

.970, 

.849, 

.071, 

.971, 


.208, 

.307, 

.023, 

.118* 

.239, 

.181, 

.512, 

.424, 


.755, 

.610, 

.899, 

.758, 

. 022 , 

,865, 


.229, 

.231, 



037, 

035, 


2 

-.012, 

-.012* 

mm 

.012, 

-.012, 

-.018, 

— . 022, 

-.027, 

-.032, 

-.037, 

2 

-.049* 

-.060, 

- 

.072, 

-.084, 

-.105, 

-.120, 

-.102, 

-.068, 

-. 035, 

2 

-• 021 » 

-.024* 

- 

.038, 

-.049, 

-.061, 

-.107, 

-.132, 

-.141 , 


3 

• 153, 

.159, 


.169, 

.174, 

.183, 

.188, 

.194, 

.202, 

.210, 

3 

.218, 

• 221 » 


.201, 

.154, 

.107, 

.060, 

• 064 , 

.099, 

.140, 

3 

.162, 

.157, 


.142, 

.124, 

.107, 

.010, 

-.025, 

-.025, 


4 

• 35 1 » 

.379, 


.403, 

.416, 

.434, 

.442, 

.451, 

• 465 , 

.478, 

4 

.474, 

.450, 


.394, 

.339, 

• 283, 

.255, 

.269, 

.301, 

.337, 

4 

• 356 * 

.342, 


.318, 

.293, 

.269, 

.156, 

.109, 

.092/ 


DATA ( (CL209 ( I » 

J) 

* J=1 * 

26) ,1=5 

,7) / 





5 

.522, 

.552, 


.584, 

.603, 

.629, 

.645, 

.661* 

.678, 

.670, 

5 

.631* 

.591* 


.550, 

.509, 

.468, 

.432, 

.435, 

.479, 

.517, 

5 

.530* 

.51b, 


.490, 

.464, 

.438, 

.316, 

.247, 

.204, 


6 

.697* 

.73b, 


.788, 

.819, 

.855, 

.871, 

.858, 

.828, 

.797, 

6 

.767* 

.723, 


.678, 

• 634 , 

.590, 

.567, 

.583, 

.622, 

.657, 

6 

• 676 ♦ 

.663, 


.642, 

.618, 

.593, 

.468, 

.377, 

.308, 


7 

.817* 

.870, 


.930, 

.972, 

1.007, 

.992, 

.968, 

.935, 

.902, 

7 

.860* 

.817, 


.775, 

.732, 

.684, 

.653, 

.660, 

.698, 

.737, 

7 

.758* 

.748, 


.730, 

.710, 

.689, 

.585, 

.498, 

.420/ 


OATA ( ( CL21 2 ( I * 

J) 

, J = 1 , 

26) ,1=1 

,4)/ 





1 

-.207* 

-.203, 

- 

.201, 

-.198, 

-.195, 

-.194, 

-.192, 

-.192, 

-.197, 

1 

-.220* 

-.258, 

- 

.335, 

-.410* 

-.443, 

-.409, 

-.333, 

-.280, 

-.260, 

1 

-.270* 

-.280, 

- 

.289, 

-.298, 

-.306, 

-.342, 

-.359, 

-.364, 


2 

-.024* 

-.021, 

- 

.021, 

-.020, 

-.017, 

-.015, 

-.013, 

-.010, 

-.0U, 

2 

-.023* 

— • 052 , 

- 

.123, 

-.202, 

-.239, 

-.212, 

-.171 , 

-.130, 

-.098, 

2 

-.110* 

-.120, 

- 

.130, 

-.141, 

-.150, 

-.197, 

-.217, 

-.220, 


3 

.142, 

.149, 


.164, 

.172, 

.182, 

.186, 

.191, 

.196, 

.198, 

3 

.187* 

.151, 


.081, 

.012, 

-.023, 

.001, 

.045, 

.088, 

.115, 

3 

.106* 

• 09b, 


.085, 

.075, 

.064, 

.011, 

- • 020 , 

-.028, 


4 

.328* 

.34b, 


.359, 

.368, 

.378, 

.387, 

.395, 

.404, 

.399, 

4 

.361, 

.312, 


.253, 

.196, 

• 162, 

.185, 

.230, 

.274, 

.297, 

4 

.284, 

.269, 


.255, 

.241, 

.227, 

.157, 

.107, 

.080/ 


0 AT A ( ( CL2 1 2 ( I » 

J) 

, J = 1 , 

26) , 1=5 

,7)/ 





5 

• 47 6* 

.50b , 


.527, 

.540, 

.561, 

.571, 

.584, 

.599, 

.571, 

5 

.507, 

.444 , 


.381, 

.323, 

.302, 

.337, 

.385, 

.429, 

.442, 

5 

• 430 * 

.415, 


.401, 

.386, 

.372, 

.292, 

.233, 

.185, 


6 

.613* 

.653, 


.700, 

.726, 

.758, 

.780, 

.779, 

.739, 

.682, 

6 

. 626 » 

.570, 


.514, 

.460, 

.443, 

.476, 

.517, 

.556, 

.573, 

6 

.562, 

.547, 


.531, 

.515, 

.500, 

.417, 

.349, 

.301, 


7 

.743, 

.791, 


.839, 

.871, 

.910, 

.903, 

.852, 

.795, 

.738, 

7 

.680* 

.623, 


.566, 

.514, 

.499, 

.533, 

.578, 

.622, 

.639, 

7 

.629, 

.619, 


.608, 

.598, 

.588, 

.525, 

• 474, 

.424/ 


DATA( ( CL215 ( I » 

J) 

, J = 1 , 

26) , 1=1 

,4) / 





1 

-.212* 

-.217, 

- 

.227, 

-.231, 

-.239, 

-.243, 

-.247, 

-.253, 

-.284, 

1 

-.340* 

-.417, 

- 

.505, 

-.519, 

-.492, 

-.419, 

-.311, 

-.239, 

-.248, 

1 

-.249, 

-.250, 

• 

.251, 

-.253, 

-.254, 

— . 260 ♦ 

— • 265 , 

-.270, 


2 

-.046, 

-.052, 

- 

. 058, 

-.062, 

-.067, 

-.070 , 

-.073, 

-.079, 

-. 109, 

2 

-.166* 

-.234, 

mm 

.297, 

-.321, 

-.301, 

-.238, 

-.118, 

-.073, 

—.078, 

2 

— . 083 » 

-.088, 

- 

.092, 

-.095, 

-.097, 

-.110, 

-.120, 

-.131, 


3 

.106, 

.lib. 


.121, 

.123, 

.130, 

.135, 

.139, 

.137, 

.124, 

3 

.088* 

.020, 

- 

.077, 

-.114, 

-.081, 

- .022 , 

.034, 

.061, 

• 064, 

3 

. 060 , 

.055, 


.050, 

.046, 

.041, 

.012, 

—.004, 

-.011, 


4 

.288, 

.309, 


.324, 

.334, 

.343, 

.348, 

.353, 

.349, 

.332, 

4 

.276, 

.174, 


.090, 

.075, 

.109, 

.178, 

.236, 

.249, 

.239, 

4 

.229, 

.220, 


.212, 

.204, 

.196, 

.154, 

.120, 

.096/ 



35 



DATA ( ( CL2 1 5 ( I * J) *J = 1* 

26) ,1=5 

,7)/ 





5 

.431* 

.458, .485, 

.503, 

.527, 

.537, 

.524, 

.496, 

• 454, 

5 

.385* 

.307, .226, 

.196, 

.230, 

.295, 

. 354 , 

.378, 

.367, 

5 

.357* 

.346, .335, 

.326, 

.317, 

.268, 

.235, 

.213, 


6 

.554* 

.584, .617, 

.641, 

.685, 

.690, 

.671, 

.627, 

.555, 

6 

.474* 

.392, .313, 

.288, 

.330, 

.397, 

.452, 

.465, 

.457, 

6 

.448* 

.440, .432, 

.424, 

.416, 

.374, 

.347, 

.330, 


7 

.659* 

.695, .735, 

. 7 66 , 

.805, 

.798, 

.762, 

.687, 

.606, 

7 

.525* 

.444, .365, 

.347, 

.378, 

.448, 

.508, 

.527, 

.521, 

7 

.514, 

.508, .502, 

.496, 

.490, 

.461, 

.442, 

.434/ 


DATA ( (CL218 ( I » J) ♦ J=l» 

26) ,1=1 

,4)/ 





1 

-.212* 

-.221, -.240, 

-.254, 

-.273, 

-.283, 

-.298, 

-.327, 

-.374, 

1 

-.421* 

-.463, -.490, 

-.473, 

-.410, 

-.339, 

-.286, 

-.274, 

-.273, 

1 

-.272, 

-.272, -.273, 

-.274, 

-.275, 

-.282, 

- .284 , 

-.291, 


2 

- » 058 * 

- . 058 , - * 065 , 

-.072, 

-.080, 

-.087, 

-.101, 

-.150, 

-.203, 

2 

-.254, 

-.301, -.324, 

-.278 , 

-.215, 

-.157, 

-.117, 

-.111, 

-.113, 

2 

-.114* 

-.115, -.117, 

-.118, 

-.119, 

-.129, 

-.137, 

-.137, 


3 

.093, 

.104, .112, 

.116, 

.122, 

.125, 

.115, 

.046, 

-.022, 

3 

-.091, 

-.152, -.182, 

-.153, 

-.076, 

.003, 

.034, 

.031, 

.028, 

3 

.025, 

.022, .019, 

.017, 

.015, 

.003, 

-.008, 

-.008, 


4 

.268, 

.276, .287, 

.293, 

.300, 

.299, 

.267, 

.208, 

.147, 

4 

.086, 

.026, -.012, 

.016, 

.098, 

.176, 

.208, 

.203, 

.197, 

4 

. 192* 

.187, .182, 

.176, 

.171, 

.142, 

.116, 

.100/ 


DAT A ( (CL218 ( I » J) » J=l, 

26) , 1=5 

,7)/ 





5 

.413, 

.425, .437, 

.445, 

.457, 

.452, 

.408, 

.346, 

.284, 

5 

.222, 

•160, .115, 

.142, 

.229, 

.305, 

.328, 

.321, 

.315, 

5 

• 308 , 

.302, .296, 

.289, 

.282, 

.244, 

.214, 

.192, 


6 

.504, 

.537, .565, 

.588, 

.623, 

.598, 

.524, 

.450, 

.375, 

6 

.301 , 

.238, .203, 

.227, 

.310, 

.382, 

.415, 

.406, 

.398, 

6 

.390, 

.381, .373* 

.366, 

.359, 

.319, 

.288, 

.259, 


7 

.600, 

.639, .683, 

.713, 

.738, 

.685, 

.612, 

.525, 

.438, 

7 

.351 , 

.273, .232, 

.255, 

.338, 

.418, 

.449, 

.441, 

.432, 

7 

.424, 

.415, .407, 

.399, 

.392, 

.350, 

.314, 

.281/ 


DATA ( (CL221 (I*J> »J=1» 

26) , 1=1 

,4) / 





1 

-.266, 

-.263, -.253, 

-.239, 

-.226, 

- . 226 , 

— . 234 , 

-.256, 

-.312, 

1 

-.372, 

-.434, -.421, 

-.339, 

-.257, 

-.213, 

-.210, 

-.216, 

-.223, 

1 

-.230, 

-.237, -.243, 

-.249, 

-.255, 

-.263, 

-.268, 

-.275, 


2 

-.111, 

-.115, -.102, 

-.086, 

-.065, 

-.059, 

-.072, 

-.107, 

-.164, 

2 

-.239, 

-.291, -.277, 

-.203, 

-.129, 

-.071, 

-.076, 

-.084, 

-.092, 

2 

-.101, 

-.109, -.117, 

-.126, 

-.135, 

-.167, 

-.167, 

-.167, 


3 

.069, 

.071, .072, 

.078, 

.087, 

.083, 

.069, 

.021, 

-.039, 

3 

-.124, 

-.176, -.154, 

-.054, 

.051, 

.084, 

.078, 

.070, 

.062, 

3 

.054, 

. 046 , . 039 , 

.031, 

.025, 

.000, 

-• 006, 

—.007 , 


4 

.239, 

.226, .233, 

.246, 

.250, 

.237, 

.196, 

.125, 

.054, 

4 

-.013, 

-.059, -.050, 

.048, 

.148, 

.178, 

.176, 

.169, 

.160, 

4 

.151 ♦ 

.141, .135, 

.128, 

.122, 

.095, 

.082, 

.072/ 


D AT A ( (CL221 ( I * J ) *J=1» 

26) ,1=5 

,7)/ 





5 

.370, 

.364, .374, 

.383, 

.387, 

.379, 

.344, 

.277, 

.185, 

5 

.101, 

• 044 , • 061 , 

.151, 

.257, 

.287, 

. 286 , 

.277, 

.269, 

5 

.260, 

.252, .243, 

.235, 

.228, 

.190, 

.168, 

.157, 


6 

.420, 

.433, .471, 

.498, 

.511, 

.479, 

.417, 

.337, 

.243, 

6 

.144, 

.115, .137, 

.230, 

.323, 

.357, 

.354, 

.344, 

.332, 

6 

.321, 

• 3l4, .306, 

.299, 

.292, 

.256, 

.240, 

.223, 


7 

.495, 

.533, .586, 

.625, 

.622, 

.574, 

.482, 

.385, 

.287, 

7 

.190, 

. 144 , .159, 

.255, 

.358, 

.385, 

.381, 

.373, 

. 366 , 


36 


287, 

366 , 



7 

.358* 

.351, 

.343, 

.336, 

.328, 

• 28 8 9 

.269, 

.253/ 


OATA( (ALP204< J*N> ,N = 1 

»9),J=1,13)/ 






8. 

-5.58, 

-3.70, 

-1.82, 

*11, 

1.89, 

4 . 

04, 

6.23, 

9.13, 

12.03, 

& 

-5.54* 

-3.65, 

-1.77, 

.03, 

1.77* 

3 . 

71, 

5,73, 

8.37, 

11.11, 

& 

-5.54* 

-3.64, 

-1.77, 

-.11, 

1.58, 

3 . 

38, 

5.32, 

7.53, 

9.86, 

& 

-5.58* 

-3.64, 

-1.76, 

-.19, 

1.48, 

3 . 

19, 

5.06, 

7.11, 

9.20, 

& 

-5.64, 

-3.65, 

-1.75, 

-.27, 

1.35, 

2 . 

98, 

4.70, 

6.74, 

9.01, 

8. 

-5.68* 

-3.66, 

-1.74, 

— .30, 

1.28, 

2 . 

88, 

4.53, 

6.60, 

9.25, 

8. 

-5.69, 

-3.65, 

-1.74, 

-.35, 

1.21, 

2 . 

78, 

4.37, 

6.43, 

9.60, 


-5.71, 

-3.66, 

-1.74, 

-.39, 

1.14, 

2 . 

68 , 

4.20, 

6.38, 

10.19, 

8. 

-5.71, 

-3.67, 

-1.76, 

-.43, 

1.08, 

2 . 

61, 

4.10, 

6.59, 

10.55, 

8. 

-5.72, 

-3.70, 

-1.79, 

-.48, 

1.00, 

2 . 

56 , 

4.11, 

6.85, 

10.89, 

8. 

-5.79, 

-3.80. 

-1.87, 

-.54, 

.93, 

2 . 

51, 

4.23, 

7.12, 

11.20, 

8. 

-5.89, 

-3.97, 

-2.05, 

-.64, 

. 84 , 

2 . 

45, 

4.37, 

7.40, 

11.53, 

8. 

-6.09, 

-4.18, 

-2.28, 

-.75, 

.78, 

2 . 

46 , 

4.54, 

7.71, 

11.84/ 

data ( (ALP204 ( J 

»N> ,N=1 

,9) , J=1 4,26) / 






8. 

-6.26, 

-4.38, 

-2.51, 

— . 86 , 

.77, 

2 . 

56, 

4.74, 

8.00, 

12.08, 

8. 

-6.44, 

-4.53, 

-2.63, 

-.90, 

.83, 

2 . 

73, 

4.94, 

8.26, 

12.22, 

8, 

-6.47, 

-4.51 , 

-2.55, 

- . 72 , 

1.03, 

2 . 

87, 

5.10, 

8.43, 

1 2 . 2 1 , 

8 

-6.34, 

-4.35, 

-2.36, 

-.50, 

1.21, 

3 . 

00, 

5.26, 

8.50, 

11.98, 

8 

—6 . 27 , 

-4.24, 

-2.21, 

-.33, 

1.30, 

3 . 

04, 

5.33, 

8.48, 

11.75, 

8 

-6.31 , 

-4.29, 

-2.27, 

-.43, 

1.21 , 

2 . 

95, 

5. 19, 

8.39, 

11.81, 

8 

-6.35, 

-4.35, 

-2.35, 

-.57, 

1.07, 

2 . 

80, 

4.96, 

8.07, 

11.55, 

8 

-6.36* 

-4.39, 

-2.42, 

-.70, 

.93, 

2 . 

62, 

4.65, 

7.62, 

11.07, 

8 

-6.38, 

-4.42, 

-2.46. 

-.74, 

.88, 

2 . 

54, 

4.47, 

7.41, 

10.86, 

8 

-6.40, 

-4.38, 

-2.36, 

- • 64 . 

1.06, 

2 . 

83, 

4.91, 

8.02, 

11.50, 

8 

-6.18, 

-3.15, 

-.88, 

1.09, 

3.34, 

5 . 

88, 

8.83, 

11.79, 

14.76, 

8 

-6.49, 

-2.88, 

.08, 

2.90, 

5.97, 

8. 

98, 

11.98, 

14.99, 

18.00, 

8 

-6.53, 

-2.86, 

.25, 

3.74, 

^ .46, 

11. 

06 , 

14.67, 

18.27, 

21.87/ 

DATA ( (ALP206< J 

, N ) ♦ N= 1 

,9) ,J=1 , 

13)/ 






8 

-6.03, 

-3.94, 

-1.84, 

.27, 

2.26, 

4. 

42, 

O 

O 

• 

10.13, 

13.25, 

8 

-6.10, 

-3.94, 

-1 .79, 

.15, 

1.97, 

3. 

84, 

f.io, 

9.02, 

11.94, 

8 

-6.13, 

-3.93, 

-1.79, 

0.00 , 

1,76, 

3. 

50, 

5.56, 

8.01, 

10.53, 

8 

-6.14, 

-3.93, 

-1.79, 

-.08, 

1.61, 

3. 

31, 

5.21, 

7.55, 

10.10, 

8 

-6.12, 

-3.93, 

-1.81, 

-.16, 

1.46, 

3. 

09, 

4.87, 

7.09, 

9.65, 

8 

-6.12, 

-3.93, 

-1.81, 

-.19, 

1.39, 

2. 

97, 

4.70, 

6.97, 

9.76, 

8 

-6.11, 

-3.93, 

-1.82, 

-.23, 

1.32, 

2. 

86, 

4.56, 

7.02, 

10.30, 

8 

—6 .10, 

-3.92, 

-1.82, 

-.26, 

1 • 25 , 

2. 

78, 

4.51, 

7.31 , 

10.67, 

8 

-6.08, 

-3.91, 

-1.82, 

-.30, 

1.18, 

2. 

72, 

4.63, 

7.64, 

10.89, 

8 

-6.06, 

-3.90, 

-1.82, 

— . 36 , 

1 . 10 , 

2. 

70, 

4.85, 

7.95* 

11.08, 

8 

-6.08, 

-3.90, 

-1.82, 

-.41, 

1.03, 

2. 

71, 

5.22, 

8.33, 

11.48, 

8 

-6. 03 , 

-3.86, 

-1.83, 

-.46, 

1.04, 

2 . 

90, 

5.57, 

8.74, 

11.94, 

8 

-6.01, 

-3.87, 

-1.83, 

-.45, 

1.17, 

3. 

20 , 

5.93* 

9.15, 

12.37/ 

DATA< <ALP206< J 

» N ) *N=1 

9 ) , J=14 

, 26 ) / 






8 

-5.97, 

-3.76, 

-1.71, 

-.27, 

1.45, 

3. 

52, 

6.30, 

9.57, 

12.85, 

8 

-5.65, 

-3.33, 

-1.40, 

.01 , 

1.76, 

3. 

80, 

6.68, 

10.02, 

13.35, 

8 

-5.15, 

-2.77, 

-1.10, 

.30, 

1.95, 

4 . 

04, 

7.08, 

10.50, 

13.91, 

8 

-4.70, 

-2.61, 

-1.06, 

. 33 , 

1.95, 

4 . 

11, 

7.12, 

10.86, 

14.60, 

8 

-4.98, 

-2 .87, 

-1.21, 

.16, 

1.80, 

3. 

89, 

6.79, 

10.52, 

14.26, 

8 

-5.34, 

-3.16, 

-1.37, 

-.04, 

1.60, 

3. 

58, 

6.25, 

9.89, 

13.53, 

8 

-5.49, 

-3.34, 

-1.50, 

-.17, 

1.41, 

3. 

33, 

5.94, 

9.38, 

12.83, 

8 

-5 . 68 , 

-3.46, 

-1.53, 

-.18, 

1.40, 

3. 

33, 

5.99, 

9.43, 

12.88, 

8 

—5 . 66 , 

-3.36, 

-1.44, 

-.08, 

1.59, 

3. 

63, 

6.31, 

9.98, 

13.65, 

8 

-5.48, 

-3.18, 

-1.33, 

.08, 

1.87, 

4 . 

03, 

6.90, 

10.44, 

13.98, 

8 

-4.93, 

-2.52, 

-.61, 

1.74, 

<►.12, 

6. 

77, 

9.67, 

12.57, 

15.46, 



& 

-5.57, 

-2.8b, 

.23, 

3.21, 

5.95, 

9.16, 

12.39, 

15.61, 

18.84, 

& 

-7.20, -3.5b, 
DATA ( (ALP209 ( J 

.41, 

, N ) »N=1 

3.94, 
,9) , J=1 

7.48, 

*13)/ 

10.96, 

14.43, 

17.91, 

21.39/ 

s. 

-6.79, 

-4.32, 

-1.85, 

.47, 

2.57, 

4.89, 

7.72, 

11.05, 

14.38, 

& 

-6 • 54 , 

-4.20, 

-1.86, 

.37, 

2.24, 

4.52, 

6.96, 

9.94, 

12,93, 

& 

-6 . 54 , 

-4.20, 

-1.87, 

• 26 , 

1.97, 

4.16, 

6.17* 

8.99, 

11.80, 

& 

-6.54, 

-4.20, 

-1.87, 

,21, 

1.87, 

3.97, 

5.82, 

8.37, 

10.98, 

& 

-6.37, 

-4.08, 

-1.82, 

.14, 

1.73, 

3.70, 

5.51, 

7.91, 

10.54, 

& 

-6 . 27 1 

-4.01 , 

-1.79, 

.09, 

1.67, 

3.56, 

5.37, 

8.13, 

1 1.44, 

& 

-6 • 1 7 1 

-3.93, 

-1.76, 

.05, 

1.60, 

3.42, 

5.41, 

8.58, 

12.22, 

& 

—5.98, 

-3.82, 

-1.73, 

-.02, 

1.51 , 

3.27, 

5.63, 

9.21, 

12.95, 

& 

—5.78, 

-3.70, 

-1.70, 

-.08, 

1.42, 

3.27, 

6*06, 

9.87, 

13.68 , 

& 

-5.66, 

-3,57, 

-1.63, 

-.13, 

1.42, 

3.61, 

6.71, 

11.01, 

15.31, 

& 

-5 .51, 

-3.44, 

-1.57, 

-.15, 

1 • 5 6 9 

4.14, 

7 . 64 , 

11.89, 

16.15, 

& 

-5. 35 , 

-3 . 3 1 , 

-1.47, 

-.01 , 

2 « 0 8 1 

4.78, 

8.52, 

12.64, 

16.76, 

& 

-5.19, 

— 3.17, 

-1.29, 

.50, 

2.72, 

5.46, 

9.39, 

13.47, 

17,55/ 

DATA ( { ALP209 ( J 

N ) , N = 1 

9 ) , J=14,26)/ 




S. 

-5.11, 

-3.00, 

-1.01, 

1.06, 

3.26, 

6.21, 

10.47, 

14.72, 

18.98, 

Si 

-5.01, 

-2.8b, 

— . 67 , 

1 .44, 

3.64, 

6.77, 

11.42, 

16.07, 

20.72, 

& 

-5.22, 

-3.0b, 

-.77, 

1.33, 

3.58, 

6.44, 

11.64, 

16.83, 

22.03, 

& 

-5.59, 

-3.43, 

-1.19, 

1.00, 

3.11 , 

5.69, 

10.68, 

15.95, 

21.21, 

& 

-5.7?, 

-3.68, 

-1.60, 

.61 , 

2.70, 

5.19, 

9.58, 

14.58, 

19.58, 

& 

-5.93, 

-3.85, 

-1.77, 

.39, 

2.51, 

4.96, 

9.02, 

13.90, 

18.78, 

& 

-5.84, 

-3.80, 

-1.73, 

.46, 

2.67, 

5.14, 

9.22, 

13.93, 

18.64, 

& 

-5.05, 

-3.72, 

-1.58, 

.66, 

2.95, 

5.45, 

9.59, 

14.14, 

10,68, 

& 

-5.04, 

-3.65, 

-1.43, 

.90, 

3.25, 

5.77, 

9.96, 

14.30, 

18.65, 

& 

-5.07, 

-3.59, 

-1.27, 

1.15, 

3.55, 

6 . 1 5 . 

10.31, 

14.48, 

18,65, 

& 

— 5 . 8 0 , 

-3.23, 

-.17, 

2.55, 

5.11, 

8.26, 

11.68, 

15.09, 

18.51 , 

& 

-6*06, 

- 3 . 0 3 , 

.37, 

3.32, 

6.38, 

9.69, 

12.99, 

16.30, 

19.60, 

6. -6.21, -2.9b, 

DATA ( (ALP212( J, 

.43, 
N) , N= 1 , 

3.93, 
9) , J=1 , 

7.64, 

13)/ 

11.21, 

14.79, 

18.36, 

21.93/ 

k 

k 

-6.11, 

-6.16, 

-3.92, 

-3.Q7, 

-1.71 , 
-1.75, 

.62, 

.52, 

2.97, 

2.68, 

5.81, 

5.28, 

8.88, 

8.13, 

11.95, 

11.03, 

15.03, 

13.93, 

& 

—6.21 , 

-3.9*, 

-1.77, 

.37, 

2.49, 

4.84, 

7.44, 

10.32, 

13.19, 

& 

-6 . 27 , 

-4.02, 

-1 .79, 

.29, 

2.37, 

4.65, 

7.02, 

9.78, 

12.54, 

& 

—6 .30, 

-4.06, 

-1.83, 

.18, 

2.24, 

4.40, 

6.55, 

9. IB, 

1 1 .82, 

k 

-6.30, 

-4 . 0 7 , 

-1.85, 

.14, 

2.14, 

4.28, 

6.33, 

9.58, 

12.83, 

& 

-6.32, 

-4.09, 

-1.87, 

.09, 

2.05, 

4.16, 

6.58, 

12.05, 

17.53, 

L 

-6.29, 

-4.09, 

-1.90, 

.04, 

1.96, 

4.01, 

8. 18, 

15.32, 

22.46, 

& 

-6 . 19, 

-4.03, 

-1.89, 

• 02, 

2.01, 

4.52, 

10.21, 

17.36, 

24.50, 

& 

-5.83, 

-3.80, 

-1.78, 

*15, 

2.53, 

5.56, 

12.44, 

19,85, 

27.26, 

& 

-5.38, 

-3.44, 

-1.49, 

.61, 

3.33, 

7.13, 

14.68, 

22.23, 

29.77, 


-4.61 , 

-2.73, 

-.79. 

1.38, 

4.29, 

9.31 , 

17.00, 

24,69, 

32.38, 

& 

—3.90, 

-1.98, 

-.11, 

2.06, 

5.12, 

11.19, 

18.59, 

26.00, 

33.41/ 

DATA ( (ALP212 ( J* 

N) » M = 1 , 

9) , J=14 

,26) / 




k 

-3. 58, 

-1.64, 

.25, 

2.54, 

5.39, 

11.61, 

18.75, 

25.89, 

33.04, 

& 

-3,91 , 

-1.89, 

-.01, 

2.20, 

4.91, 

10.35, 

17.37, 

24.39, 

31.40, 

k 

-4.83, 

-2.3b, 

-.42, 

1.68, 

4.23, 

8.72, 

15.28, 

21.84, 

28.39, 

k 

-5.60, 

-2 • 93 , 

-.81, 

1.20, 

3.63, 

7.33, 

13.39, 

19.45, 

25.52, 

& 

-5 .73, 

-3.2b, 

-1.08, 

.93, 

3.42, 

6.82, 

12.88, 

18.94, 

25,00, 

s, 

-5.63, 

-3.13, 

-.98, 

1.06, 

3.59, 

7.13, 

13.10, 

19.07, 

25.04, 

& 

-5.50, 

-3.00, 

-.89, 

1.20, 

3.79, 

7.47, 

13.03, 

18.58, 

24.14, 

& 

-5.40, 

-2 • 88 , 

-.79, 

1.35, 

3.99, 

7.79, 

12.99, 

18. lfl. 

23.36, 

k 

-5 • 30 , 

-2.75, 

-.69, 

1.51, 

4.22, 

8.05, 

12.87, 

17,69, 

22.51 , 

k 

-5,21 , 

-2.64, 

-.60, 

1.67, 

4.44, 

8.27, 

12.82, 

17.36, 

21.91, 
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s. 

-4.80* 

-2.04, 

-.11, 

2 . 64 , 

5.73, 

9.39, 

13.09, 

16.80, 

20,50, 

& 

-4.58* 

— 1 . 83 * 

.31, 

3 . 48 , 

6.82, 

10.02, 

13.22, 

16.42, 

19,62, 

& 

-4,50* 

-1.79, 

.52, 

4.26, 

7.61, 

10.86, 

14.11, 

17.37, 

20.62/ 


DATA ( (ALP215 ( J»N) ,N=1 

,9) » J=1 

» 13) / 


& 

-6.27* 

-3.86* 

-1.39, 

1.03, 

3.57, 

6.88, 

10.69, 

14.50, 

18,30, 

& 

-6.22* 

-3.79, 

-1.38, 

.87, 

3.22, 

6.29, 

9.89, 

13.50, 

17,10, 

& 

-6.05* 

-3,68* 

-1.35, 

. 78 , 

2.94, 

5.74, 

9.10, 

12.49, 

15.88, 

& 

-6,00* 

-3.63, 

-1.33, 

.73, 

2.78, 

5.41, 

8.54, 

11.74, 

14,94, 

& 

-5.87* 

-3,55* 

-1.32, 

.66, 

2.62, 

4.92, 

7.92, 

11.25, 

14,58, 

& 

-5,82* 

-3.50, 

-1.32, 

.61, 

2.55, 

4.62, 

8.04, 

11.74, 

15.44, 

5- 

—5 • 76 » 

-3.46, 

-1,31, 

.57, 

2.55, 

5.03, 

8.84, 

13.23, 

17.63, 

& 

-5 » 69 ♦ 

-3.39, 

-1.27, 

.59, 

2.69, 

5.59, 

11.77, 

18.43, 

25,10, 

& 

-5,33* 

-3.04, 

-1.06, 

.73, 

3.11, 

7.76, 

15.61, 

23,45, 

31.29, 

& 

-4.69* 

-2.39, 

- . 69 , 

1.19, 

4.34, 

10.94, 

18.78, 

26.63, 

34.47, 

& 

-3.81 » 

-1.73, 

-. 16 , 

2.39, 

6.31, 

14.00, 

21.69, 

29.38, 

37.08, 

8. 

-2.99* 

-1.12, 

.92, 

3.62, 

9.35, 

17.04, 

24.73, 

32.42, 

40,12, 

5. 

-2.80, 

-.83, 

1.21, 

4.09, 

9.80, 

16.58, 

23.36, 

30.14, 

36.92/ 

DATA ( ( ALP215 ( J 

N ) *N=1,9> * J=14,26) / 



8. 

~3.04t 

-1 • 08 , 

.85, 

3.50, 

8.92, 

17.25, 

25.58, 

33.92, 

42.25, 

8. 

-3 • 79 f 

r 1 . 65 , 

• 22 , 

2.38, 

6.12, 

13.96, 

21.80, 

29.65, 

37.49, 

8. 

-4.92, 

-2.85, 

-.45, 

I. 64 , 

4.94, 

11.29, 

18.43, 

25.57, 

32.71, 

6. 

-5.94, 

-3.53, 

- . 91 , 

1.48, 

4.51, 

10.35, 

16.81, 

23.26, 

29.71, 

8, 

-5.79, 

-3.44, 

-.90, 

1.55, 

4.73, 

10.47, 

16.72, 

22.97, 

29.22, 

8. 

-5 . 82 ♦ 

-3 .41, 

- • 84 , 

1.66, 

4.95, 

10.61, 

16.67, 

22.73, 

28.79, 

& 

-5.85, 

-3.38, 

-.77, 

1.76, 

5.15, 

10.71, 

16.59, 

22.47, 

28.35, 

& 

-5.87, 

-3.36, 

-.70, 

1.85, 

6 . 34 , 

10.80, 

16.51, 

22.23, 

27.94, 

Si 

-5 • 86 , 

-3.33, 

-.65, 

1.95, 

5.51, 

10.89, 

16.44, 

22.00, 

27.56, 

&. 

-5 . 86 , 

-3.31 , 

-.59, 

2.07, 

5.68, 

10.97, 

16.38, 

21.78, 

27.19, 

& 

-5 . 87 , 

-3.20, 

-.20, 

2.81, 

0 . 6 O, 

11.20, 

15.79, 

20.39, 

24.99, 

& 

-5 . 86 , 

-3.10, 

.06, 

3.39, 

7.12, 

11.33, 

15.54, 

19.75, 

23.96, 

6, 

-5 . 87 , 

-2.99, 

.21, 

3.78, 

7.35, 

11.19, 

15.04, 

18.88, 

22.73/ 

DAT A ( (ALP?18(J» 

N) » N = 1 , 

9 ) , J= 1 , 

13)/ 



Si 

-6.44, 

-3.84, 

-1.23, 

1.22, 

3.82, 

8.00, 

12.17, 

16.33, 

20.50, 

& 

-6 . 20 , 

-3.74, 

-1.28, 

1.12, 

3.66, 

7.24, 

11.16, 

15.08, 

19.00, 

Si 

—5.83, 

-3.54, 

-1.27. 

1 . 01 , 

3.51 , 

6.59, 

9.98, 

13.37, 

16.76, 

Si 

-5.60, 

-3 .4 1 , 

-1.23, 

.95, 

3.41, 

6.19, 

9.39, 

12.59, 

15.79, 

6k 

-5.32, 

-3.24, 

-1.21, 

.88, 

3.27, 

5.72, 

9.08, 

12.56, 

16.03, 

S. 

-5.19, 

-3.15, 

-1.18, 

.86, 

3.32, 

6.05, 

10.64* 

15.24, 

19.84, 

Si 

-5.04, 

-3.01, 

-1.06, 

1.12, 

3.89, 

7.73, 

12.27, 

16.82, 

21 .36, 

Si 

-4.82, 

-2.56, 

-.47, 

1.90, 

5.04* 

10.00, 

15.33, 

20.67, 

26.00, 

Si 

-4*30, 

-1.97, 

.26, 

2.77, 

6.79, 

13.14, 

19.49, 

25.84, 

32.19, 

Si 

-3 ♦ 75 , 

-1.34, 

1.03, 

3.68, 

9.96, 

17.96, 

25.96, 

33.96, 

41.96, 

S. 

-3.22, 

- . 64 , 

1.71, 

5.03, 

15.26, 

26.69, 

38.11, 

49.54, 

60.97, 

s> 

-2.92, 

-. 26 , 

2.19, 

5.93, 

19.59, 

33.38, 

47.17, 

60.97, 

74.76, 

& 

-3 • 25 , 

-.75, 

1.81, 

5.36, 

18.36, 

32.64, 

46.93, 

61.21, 

75.50/ 

DATA ( (ALP? 18 ( J*N) ,N=1 » 

9) , J=14 

,26)/ 




Si 

-3.90, 

-1.78, 

.87, 

3.56, 

12.43, 

26.71, 

41.00, 

55.29, 

69.57, 

Si 

-4.67, 

-2.47, 

-.04, 

2.37, 

7.00, 

18.11, 

29.22, 

40.33, 

51.44, 

Sr 

-5 . 35 , 

-2.98, 

-.45, 

1.91, 

5.66* 

16.88, 

28.65, 

40.41, 

52.18, 

& 

-5.55, 

-3.09, 

-.44, 

1.97, 

5.86, 

17.09, 

28.51, 

39.94, 

51.37, 

Sr 

-5 . 59 , 

-3. 09» 

-.40, 

2.05, 

8.12, 

17.88, 

29.65, 

41.41, 

53.18, 

& 

-5.62, 

-3.09, 

-.36, 

2.14, 

6.59, 

18.35, 

30.12, 

41.88, 

53.65, 

& 

-5 . 63 , 

-3.08, 

-.32, 

2.23, 

7.12, 

18.88, 

30.65, 

42.41, 

54.18, 

Si 

-5 . 63 1 

-3.06, 

-.28, 

2.32, 

7.59, 

19.35, 

31.12, 

42.88, 

54.65, 

Si 

-5.62, 

-3.05, 

-.25, 

2.42, 

8.06, 

20.18, 

32.30, 

44.42, 

56.55, 


39 



& 

8 , 

& 

& 

8 . 

& 

& 

& 

& 

& 

& 

& 

8 . 

8 . 

L 

8 , 

8 . 

& 

8 , 

8 . 

8 . 

& 

& 

8 . 

8 . 

8 . 

8 , 

8 . 

& 

8 . 

1 

1 
1 

2 
2 
2 
3 
3 

3 

4 
4 

4 

5 
5 
5 

1 

1 

1 

2 

2 

2 


—5 • 60 * 

-3.04, 

-.22, 

2.52, 

8 . 48 , 

20.61, 

32.73, 

44.85, 

56.97, 

-5.54* 

-2.93, 

-.05, 

3.14, 

11.23, 

24.13, 

37.03* 

49,94, 

62.84, 

-5.58* 

-2.86, 

.13, 

3.71, 

14.62, 

30.00, 

45.38* 

60.77, 

76.15, 

-5.42, 

-2.82, 

.15, 

4.24, 

18.82, 

37.00, 

55.18* 

73.36, 

91.55/ 

DATA ( (ALP221 < J 

*N) » N= 1 

,9) , J=i 

,13)/ 





-5.73, 

-3, 15, 

-.77, 

1.54, 

5.20, 

10.80, 

16.13* 

21.47, 

26.80, 

-5.85, 

-3.15, 

-.76, 

1.66, 

5.04, 

9.34, 

13.34, 

17.34, 

21.34, 

-5.95, 

-3.30, 

-.83, 

1.59, 

4.54 , 

8.24, 

11.72* 

15.20, 

18.68, 

-6.10, 

-3.49, 

-.95, 

1.45, 

4.30, 

7.61, 

10.76* 

13.91, 

17.06, 

-6.16* 

-3.68, 

-1.14, 

1.39, 

4.21, 

7.60, 

11.21* 

14.81, 

18.41, 

-6.08, 

-3.69, 

-1.17, 

1.52, 

4.42, 

8.55, 

12.76, 

16.97, 

21.18, 

-6.05* 

-3.58, 

-.98, 

2.05, 

5.53, 

11.63, 

17.78, 

23.94, 

30.09, 

-5.93, 

-3.25, 

-.33, 

2.99, 

8.63, 

16.96, 

25.29, 

33.63, 

41.96, 

-5.19, 

-2.49, 

.84, 

4.52, 

13.14, 

22.23, 

31.32, 

40.41, 

49.50, 

-4.42, 

-1.32, 

2.23, 

8.43, 

17.13, 

25.83, 

34.52, 

43.22, 

51.91, 

-3.52, 

-.42, 

3.15, 

11.86, 

25.66, 

39.45, 

53.24, 

67.03, 

80.83, 

-3.71, 

-.75, 

2.90, 

11.73, 

29.91, 

48.09, 

66.27, 

84.45, 

102.64, 

-4.90, 

-1.96, 

1.06, 

5.24, 

19.60, 

35.60, 

51.60, 

67 . 60 , 

83.60/ 

DAT A ( (ALP221 ( J 

, N) ,N = 1 

,9) , J=14,26) / 





-6.23, 

-3.11, 

-.57, 

2.95, 

10.40, 

21.83, 

33.26, 

44.69, 

56.11, 

-6 . 63 , 

-3.82, 

-1.08, 

2.40, 

9.07, 

23.36, 

37.64, 

51.93, 

66.21 , 

-6.84, 

-3.85, 

-1.01, 

2.44, 

9.41, 

24.22, 

39.04, 

53.85, 

68.67, 

-6.79, 

-3.76, 

-.91, 

2.57, 

9,86, 

23.66, 

37.45, 

51.24, 

65.03, 

-6 , 70 , 

-3.65, 

-.81, 

2.73, 

10.00, 

21.76, 

33.53, 

45.29, 

57.06, 

— 6 • 64 , 

-3.53, 

-.70, 

2.90, 

10.27, 

21.08, 

31.89, 

42.70, 

53.51, 

-6.55, 

-3.42, 

-.59, 

3.06, 

10.65, 

21.46, 

32.27, 

43.08, 

53.89, 

-6.49, 

-3.32, 

-.50, 

3.20, 

11.08, 

21.89, 

32.70, 

43.51, 

54.32, 

—6.46 , 

-3.20, 

-.39, 

3.35, 

11.46, 

22.27, 

33.08, 

43.89, 

54.70, 

-6.42, 

-3.08, 

-.31, 

3.47, 

12.00, 

23.11, 

34.22, 

45.33, 

56.44, 

-6.85, 

-2. 69 , 

0.00, 

4.30, 

15.00, 

27.50, 

40.00, 

52.50, 

65.00, 

-6.61, 

-2.65, 

.14, 

4.89, 

17.03, 

30.83, 

44.62, 

58.41, 

72.21, 

-6.31, 

-2.61, 

.18, 

5.30, 

17.80, 

31.13, 

44.47, 

57.80, 

71.13/ 

DAT A ( (CD204 (I » 

J) * J=l* 

26) t 1=1 

,5)/ 





.0061, 

.0061, 

.0061, 

.0061, 

.0061, 

.0062, 

.0062, 

.0062, 

.0062, 

.0062, 

.0063, 

.0064, 

.0076, 

.0113, 

.0169, 

.0211* 

.0245, 

.0270, 

.0296, 

.0310, 

.0320, 

.0329, 

.0332, 

.0292, 

.0221* 

.0170, 


.0047, 

.0046, 

.0046, 

.0045, 

.0045, 

.0045, 

.0045, 

.0045, 

.0045, 

.0045, 

.0045, 

.0047, 

.0055, 

.0098, 

.0152, 

.0192, 

.0225, 

.0249, 

.0270, 

.0290, 

.0303, 

.0316, 

.0325, 

.0317, 

.0299, 

.0283, 


.0065, 

.0058, 

.0055, 

.0055, 

.0054, 

.0054, 

.0054, 

.0054, 

.0055, 

.0055, 

.0057, 

. 0066 , 

.0096, 

.0153, 

.0210, 

. 0250 * 

.0284, 

.0304, 

.0324, 

.0344, 

.0361, 

.0375, 

.0389, 

.0469, 

.0546, 

.0619, 


.0219, 

.0168, 

.0144, 

.0133, 

.0128, 

.0126, 

.0128, 

.0130, 

.0138, 

.0154, 

.0187, 

.0220, 

.0264, 

.0321, 

.0377, 

.0434, 

.0496, 

.0559, 

.0623* 

.0686, 

.0750, 

.0786, 

* 0823 , 

.0979, 

.1077, 

.1194, 


.0575, 

.0328, 

.0227, 

.0202, 

.0168, 

.0182, 

.0184, 

.0189, 

.0205, 

.0236, 

.0317, 

.0403, 

.0489, 

.0586, 

.0701, 

.0317, 

.0928, 

.1036, 

.1143, 

.1220, 

.1284, 

.1348, 

.1412, 

.1692, 

.1842, 

.1890/ 


DATA ( ( CD206 ( I , 

J) , J=1 , 

26) ,1=1 

,5)/ 





.0059, 

.0059, 

.0060, 

.0060, 

.0061, 

.0061 , 

.0061, 

.0061 , 

.0061, 

.0062, 

.0062, 

.0067, 

.0112, 

.0173, 

.0235, 

.0289, 

.0333, 

.0364, 

.0385, 

.0397, 

.0405, 

.0406, 

.0407, 

.0370, 

.0313, 

.0253, 


.0044, 

.0044, 

.0044, 

.0044, 

•0044, 

.0044, 

.0044, 

• 0044 , 

.0044, 

.0045, 

.0046, 

.0055, 

.0101, 

,0162. 

.0222, 

.0275, 

.0312, 

.0340, 

• 0360 , 

.0377, 

.0387, 

.0396, 

.0400, 

.0398, 

• 0365 , 

.0325, 
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3 .0068* .0055* .0053 
3 .0053, , 0057 ♦ .0082 

3 , 0 394 ♦ .0413, .0430 

4 .0173, .0125» .0095 
4 , 0 099 1 .0l2l» .0169 

4 . 0772 » • 0834 ♦ .0877 

5 , 0377 ♦ .0292. .0227 
5 .0229* .0267. .0304 
5 .1474. .1568. .1654 

DATA ( ( CD209 ( I * J) »J = 1 
1 ,0064. .0064, .0063 
1 .0063, .0068, .0089 

1 .0529, .0561, .0577 

2 .0055, .0053, .0054 

2 .0065, .0073, .0106 

2 .0471, .0515, .0560 

3 .0074, .0070, .0066 

3 .0072, .0088, .0143 

3 .0603, .0645, .0675 

4 .0124, .0109, .0101 

4 .0135, .0188, .0241 

4 .1022, .1087, .1135 

5 .0285, .0214, .0178 

5 .0241, .0371, .0537 
5 .1464, .1565, .1641 

DAT A ( ( CD2 1 2 ( I , J ) , J=1 
1 .0073, .0073, .0073 
1 .0081, .0127, .0228 

1 .0793, .0833, .0862 

2 .0060* .0057, .0057 
2 .0075, .0118, .0189 

2 .0734, .0789, .0831 

3 .0081, .0078, .0078 

3 .0129, .0173, .0262 

3 .0843, .0902, .0952 

4 .0136, .0131, .0129 
4 .0247, .0348, .0472 

4 .1208, .1280, .1336 

5 .0215, .0205, ,0201 
5 .0559, .0753, .0955 
5 .1841, .1891, .1940 

DATA ( ( CD21 5 ( I , J) »J=1 
1 .0074, .0076, .0077 
1 .0200, .0300, .0403 

1 .1062, .1130, .1199 

2 .0074, .0076, ,0077< 

2 .0198, .0300, .0404 

2 .1063, .1134, .1198 

3 .0099, .0099, .0100 

3 .0268, .0369, .0474 

3 .1142, .1221, .1299 

4 .0159, .0170, .0175 

4 .0494, .0618, .0741 

4 .1458, .1534, .1609 

5 .0260, .0245, .0248 


.0053, .0053, 

.0053, 

.0132, .0209, 

.0273, 

•0446, .0462, 

• 0547 , 

.0085, .0082, 

.0082, 

.0224, .0334, 

.0448, 

.0918, .0958, 

.1116, 

.0195, .0182, 

.0183, 

.0395, .0666, 

.0956, 

.1737, .1820, 

.2120, 

26) ,1=1,5)/ 

.0063, .0063, 

.0063, 

.0138, .0201, 

.0278, 

.0577, .0577, 

.0573, 

.0056, .0058, 

.0059, 

.0156, .0213, 

.0269, 

.0582, .0598, 

.0601, 

.0065, .0066, 

.0066, 

.0213, .0287, 

.0359, 

.0702, .0719, 

.0769, 

.0098, .0097, 

.0097, 

.0348, .0514, 

.0640, 

.1183, .1231, 

.1335, 

.0162, .0156, 

.0156, 

.0706, .0863, 

.1003, 

.1716, .1785, 

.1939, 

,26) , 1=1,5)/ 

.0072, .0072, 

.0072 

.0329, .0416, 

.0506 

.0877, .0887, 

.0889 

. 0056, .0056, 

.0056 

.0272, .0361, 

.0448 

.0865, .0380, 

.0903 

.0078, .0080, 

.0081 

.0353, .0437, 

.0520 

.0986, .1013, 

.1051 

.0128, .0129, 

.0131 

.0590, .0703, 

.0829 

.1392, .1430, 

.1543 

.0201, .0204, 

.0212 

.1132, .1295, 

.1455 

.1989, .2027, 

.2213 

,26) ,1=1,5)/ 

, .0078, .0078, 

.0078, 

, .0507, .0613* 

.0718, 

, .1267, .1301, 

.1302, 

, .0078, .0070, 

.0078, 

, .0507, .0612, 

.0718 

, .1261, .1324, 

.1315 

, .0103, .0109, 

.0112 

, .0584, .0701, 

.0806 

, .1334, .1369, 

. 1433 

, .0178, .0182, 

.0195 

, .0863, .0979, 

.1086 

, .1675, .1711, 

.1838 

, .0246, .0262, 

.0281 


.0053, .0053, .0053, 
.0319, .0354, .0375, 
.0611, .0657, 

.0083, .0087, .0090, 
.0549, .0639, .0711, 
.1178, .1234, 

.0184, .0188, .0202, 
.1136, .1271, .1380, 
.2260, .2238/ 

.0063, .0063, .0063, 
.0356, .0426, .0481, 
.0516, .0449, 

.0059, .0060, .0062, 
.0322* .0373, .0423, 
.0567, .0526, 

.0066, .0067, .0070, 
.0432, .0496, .0555, 
.0817, .0866, 

.0101, .0105, .0113, 
.0764, .0861, .0948, 
.1384, .1432, 

.0159, .0168, .0190, 
.1126, .1245, .1354, 
.1971, .2003/ 

.0072, .0072, .0073, 
.0585, .0658, .0727, 
.0816, .0704, 

.0058, .0059, .0064, 
.0530, .0599, .0667, 
.0045, .0746, 

.0083, .0090, .0104, 
.0606, .0693, .0772, 
.1046, .1040, 

.0133, .0146, .0172, 
.0940, .1035, .1125, 
.1560, .1505, 

.0239, .0305, .0403, 
.1615, .1713, .1780, 
.2368, .2420/ 

.0080, .0087, .0109, 
.0809, .0900, .0992, 
.1187, .1041, 

.0080, .0087, .0108, 
.0824, .0909, .0986, 
.1228, .1103, 

.0118, .0128, .0173, 
.0893, .0981, .1062, 
.1409, .1373, 

.0218, .0273, .0370, 
.1193, .1299, .1383, 
.1864, .1890, 

.0315, .0433, .0618, 
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5 

.0822* 

.1021, 

.1194, 

.1363, 

.1526, 

.1689, 

.1847, 

.1992, 

.2138 

5 

.2283* 

.2359* 

.2429, 

.2499, 

.2670, 

.2727, 

.2772, 

.2816/ 


DATA( (CD21 8 ( I • 

J) , J=l» 

26), 1=1, 5)/ 





1 

.0096, 

.0101* 

.0103, 

• 0104, 

.0108, 

.0112, 

.0122, 

.0144, 

.0207 

1 

.0335, 

.0493, 

.0630, 

.0743, 

.0847, 

.0951, 

.1043, 

.1122, 

.1200 

1 

.1273, 

.1322, 

.1370, 

.1418, 

.1450, 

.1525, 

.1524, 

.1482, 


2 

.0084, 

.0085, 

.0085* 

.0086, 

.0086, 

.0088, 

.0094, 

.0114* 

.0223 

2 

.0354, 

.0514, 

.0655, 

.0777, 

.0891 , 

.0994, 

.1083, 

.1173, 

.1248 

2 

.1305, 

. 1361 , 

.1414, 

.1459, 

.1503, 

.1589, 

.1559, 

.1516, 


3 

.0130, 

.0141* 

.0147, 

.0150, 

.0154, 

.0159, 

.0175, 

•0208, 

.0308 

3 

.0454, 

.0611 , 

.0758, 

.0868, 

.0978, 

.1088, 

.1178, 

.1263, 

.1349 

3 

.1416, 

.1468, 

.1520, 

.1572, 

.1601, 

.1677, 

.1710, 

.1742, 


4 

.0222* 

.0262, 

.0282, 

.0292, 

.0302, 

.0307, 

.0323, 

.0414, 

.0630 

4 

.0793, 

. 0966 , 

.1118, 

.1246, 

.1375, 

.1486, 

.1589, 

.1692, 

.1760 

4 

• 1 fl 1 6 » 

.1871, 

.1926* 

.1969, 

.2002, 

.2161, 

.2230, 

.2265, 


5 

.0358, 

. 0414 , 

.0441 , 

.0455, 

.0495, 

.0565, 

.0661, 

•0841, 

.1029 

5 

.1219, 

.1492* 

.1758, 

.1958, 

.2158, 

.2321, 

.2471, 

.2621, 

.2717 

5 

•2612* 

.2908, 

.3003, 

.3008, 

•3008, 

.3028, 

.3071 , 

.3114/ 


DATA( (CD221 (I» 

J) * J=1 * 

26) ,1=1, 

5)/ 





1 

.0098, 

.0137, 

.0146, 

.0153, 

.0159, 

.0165, 

.0174, 

.0199, 

.0267 

1 

.0388, 

.0521* 

.0660, 

• 0801, 

.0942, 

.1069, 

.1186, 

.1304, 

.1421 

1 

.1526, 

.1625, 

.1724, 

.1793, 

.1834, 

. 1860, 

.1868, 

.1876, 


2 

.0111, 

.0111* 

.0111, 

.0114, 

.0117, 

.0123, 

.0130, 

.0196, 

.0321 

2 

.0443, 

.0569, 

.0697, 

.0832, 

.0963, 

.1083, 

.1203, 

.1331, 

.1470 

2 

.1608, 

.1706* 

.1793, 

.1878, 

.1918, 

.1926, 

.1945, 

.1964, 


3 

.0154, 

.0164, 

.0169, 

.0172, 

.0176, 

.0180, 

.0202, 

.0305, 

.0450 

3 

.0601 , 

.0752, 

.0902, 

.1045, 

.1188, 

.1325, 

.1455, 

• 1586 , 

.1688 

3 

.1772, 

.1856, 

.1940, 

.2024, 

.2064, 

.2181, 

.2191, 

.2202, 


4 

.0369, 

.032*, 

.0332* 

.0350, 

.0375, 

.0434, 

.0577, 

.0719, 

.0862 

4 

.1012, 

.1169, 

.1326, 

. 1463 , 

.1597, 

.1732, 

.1849, 

.1959, 

.2069 

4 

.2165, 

.2246, 

.2325, 

.2405, 

.2479, 

.2562, 

.2572, 

.2583, 


5 

.0670, 

.0511 , 

.0528, 

.0547, 

.0607, 

.0771, 

.0969, 

.1168, 

.1348, 

5 

.1527, 

. 1 7o5 , 

.1893, 

.2084, 

.2276, 

.2461, 

.2643, 

.28?5, 

.3007, 

5 

.3055, 

.308A, 

.3113, 

.3136, 

• 3138, 

.3149, 

.3160, 

.3172/ 


DATA ( XM I ( J) , J = 

1,26) /. 

3, .5, .6, 

.65, .7, 

.725, .75, .775, 




.8, .825 

9 • 85 9 • 

875, .9, 

.925,. 95 

,.975,1 

.0,1.025,1.05, 

1.075, 



.1,1.125,1.15 

,1.3,1.' 

45,1.6/ 






DATA (CLI (J) ,J= 

1,9)/-.. 

4,— .2,0* 

0 , • 2 , • 4 

9 • 6 f «8 9 

*— • 

• 

o 

• 

»— • 

• 

ro 


DATA (ALPI ( J) ♦ J 

= 1,7)/- 

4. 0,-2. 0 

,0.0,2. 

0 9 4 . 0 9 6 

.0,8.0/ 




DATA (CL 1 1 (J) »J=l»5)/0.0,.2,.4,.b,.S/ 
IORDER ( 1 ) =IORDER (2) =1 
IPT (1) = -1 

IF (IKEY .EQ. 2) GO TO 1000 


IF 

(TR 

.LT. 

. 04) 

GO TO 

9 






IF 

(TR 

.GE, 

.04 

.AND. 

TR 

.LT. 

.06) 

GO 

TO 

1 

IF 

(TR 

.GE. 

.06 

.AND. 

TR 

.LT. 

.09) 

GO 

TO 

2 

IF 

(TR 

.GE. 

• 0Q 

.AND. 

TR 

.LT. 

.12) 

GO 

TO 

3 

IF 

(TR 

.GE. 

.12 

.AND. 

TR 

.LT. 

. 15) 

60 

TO 

4 

IF 

(TR 

.GE, 

.15 

.AND. 

TR 

.LT. 

.18) 

GO 

TO 

5 

IF 

(TR 

.GE. 

.18 

.AND. 

TR 

• LT. 

.21) 

GO 

TO 

6 

IF 

(TR 

• GE . 

.21) 

GO TO 

7 







9 CALL I B I ( 7, ALPI » 26, XMI » 7* CL204, IORDER* IPT, A A* XM» CLFT04, IERR ) 
CL=CLFT04 
60 TO 400 

1 CALL IB I (7,ALPI»26,XMI,7*CL204*IORDER*IPT*AA,XM»CLFT04,IERR) 
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CALL* IBI (7tALPI*26*XMI ♦ 7 , CL206 , 1 ORDER , IPT » AA , XM» CLFT06 , I ERR) 
CL=CLFT04 ♦ (CLFT06-CLFT04)*( (TR-.04) / ( .06-.04) ) 

2 CALL°iBI° ( 7, ALP I ,26»XMI»7»CL206» I ORDER* IPT » AA» XM» CLFT06, IERR) 

CALL * IBI (7* ALPI.26»XMI,7*CL209*IORDER*IPT*AA.XM»CLFT09*IERR) 

CL=CLFT06 ♦ (CLFT09 - CLFT06) * < ( TR-, 06) / ( . 09-. 06) ) 

3 G C°AL T L°IBI (7, ALPI »2&»XMI *7»CL209» IORDER* IPT» AA»XM»CLFT09t IERR) 

CALL I®I (7»ALPI»26»XMI»7,CL212»I0RDER»IPT»AA»XM»CLFT12»IERR) 
CL=CLFT09+(CLFT12-CLFT09)*( (TR-. 09 ) / < . 12-. 09) ) 

4 CALL°IBI° (7,ALPI,26»XMI,7,CL212»I0RDER»IPT»AA,XM»CLFT12»IERR) 
CALL IB I (7 , ALPI »26»XMI *7f CL215* IORDERt IPTi AA» XM»CLFT15» IERR) 

CL=CLFT12 ♦ (CLFT15-CLFT12)*( ( TR-. 12) / ( . 15-. 12 ) ) 

5 CALL°iBI 0 {7,ALPIt26.XMI.7*CL215.IORDERiIPTtAA,XMtCLFT15,IERR) 
CALL < lBr 1 (7,ALPI,26,XMI,7,CL210»IORDER»IPT,AA,XM*CLFT18,IERRj 

CL=CLFT15+ (CLFT18-CLFTI5) * ( ( TR-, 15) / ( • 18-. 15) ) 

6 CALL°iBi°(7»ALPI*26.XMI,7tCL218.I0RDER.IPT»AA.XM#CLFT18f IERR) 
CALL ( IBr 1 (7,ALPI,26.XMI,7,CL221.I0R0ER.IPT»AA,XM,CLFT21 < IERR) 

CL=CLFT18+(Ct-FT21-CLFTl8)»( (TR- . 1 8 ) / < .21-. 18) ) 

7 6 C°AL T L°IBI (7, ALPI *26»XMI *7»CL221 1 IORDER» IPT» AA»XM»CLFT21 » IERR) 

CL=CLFT21 
GO TO 400 
1000 CONTINUE 

IPT (1) =-l 

IF (TR .LT. •04) GO TO 90 

IF (TR .GE. *04 •AND* TR »LT* *06) GO TO 10 

IF (TR • GE • *06 • AND* TR *LT* *09) GO TO 20 

IF (TR *GE. *09 .AND* TR *LT» »12) GO TO 30 

IF (TR *GE. »12 • AND • TR *LT* *15) GO TO 40 

IF (TR .GE* *15 .AND. TR *LT* *18) GO TO 50 

IF (TR *GE. «18 .AND. TR .LT. .21) GO TO 60 

90 CALL. T IBI G ^26»XMI»9»CLI»26f ALP20A,IORDER.IPT.XM,CL»AA04,IERR) 
AA= AA04 

10 CALL°iBI 0 (26.XHI,9,CLI.a6,ALP204.IOROER,IPT,*M,CU.*A04,IEHR) 
CALL < lBI = (i6.XMI,9.CLI.26,ALP206,IOROER.IPT.XM,CL»AAO6.IERR) 

AA=AA04 + ( AA06-AA04 ) * ( (TR-. 04 ) / ( • 06-. 04) ) 

20 CALL°IBI° (26*XMI »9»CLI»26»ALP206, IORDER»IPT*XM,CL» AA06*IERR) 

CALL * IBI~ (26* XMI »9. CLI»26,ALP209,IORDER, IPT, XM,CL»AA09, IERR) 

AA=AA06 (AA09 - AA06 ) * ( ( TR - . 06) / ( . 09- . 06) ) 

GO TO 400 
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30 CALL IBI (26*XMI*9»CLI»26,4LP209,IORDER*IPT,XM,CL»AA09,IERR) 
IPT (1) = -1 

CALL IBI (26*XMI*9»CLI.26,ALP212»I0RDER,IPT,XM,CL»AA12,IERR) 
AA=AA09* (AA12-AA09) # ( ( TR-. 09 ) / ( . 12-. 09 ) ) 

60 TO 400 

40 CALL IBI (26*XMI*9*CLI*26,ALP212»I0RDER, IPT, XM,CL»AA12, IERR) 
IPT (1) = -1 

CALL IBI (26»XMI,9»CLI*26*ALP215,I0RDER*IPT»XM t CL*AA15*IERR) 
AA=AA12+ (AA15-AA12)*( (TR-.12) /(.15-.12) ) 

60 TO 400 

50 CALL IBI (26»XMI*9*CLI*26,ALP215* IORDER* IPT»XM,CL»AA15* IERR) 
IPT (1) = -1 

CALL IBI (26*XMIt9*CLI*26»ALP2l8»I0R0ER»IPT»XM,CL*AAl8»lERR) 
AA=AA15MAA18-AA15)*< ( TR-. 15 ) / ( • 1 8- . 15 ) ) 

60 TO 400 

60 CALL IBI (26»XMI»9*CLI*26,ALP218,I0RDER, IPT, XM,CL*AA18, IERR) 
IPT (1) = -1 

CALL IBI (26*XmI*9»CLI *26* ALP221 ♦ IORDER* IPT*XM,CL» AA21 » IERR) 
AA=AA18* (AA21-AA18>*< ( TR-. 18) / ( ,21-. 18) ) 

60 TO 400 

70 CALL IBI (26*XMI*9»CLI»26*ALP221,I0RDER»IPT*XM,CL»AA21»IERR) 
AA=AA21 
400 CONTINUE 


IPT 

(1) 

=-l 









IF 

(TR 

• LT. 

.04) 

60 TO 

i 91 






IF 

(TR 

• 6E. 

.04 

.AND. 

TR 

• LT. 

.06) 

60 

TO 

11 

IF 

(TR 

.6E. 

.06 

.AND. 

TR 

.LT. 

.09) 

GO 

TO 

21 

IF 

(TR 

.GE. 

.09 

• AND. 

TR 

.LT. 

.12) 

GO 

TO 

31 

IF 

(TR 

.6E. 

.1? 

.AND. 

TR 

.LT. 

.15) 

GO 

TO 

41 

IF 

(TR 

.GE. 

• 1 5 

• AND. 

TR 

• LT. 

. 18) 

GO 

TO 

51 

IF 

(TR 

• 6E . 

• 18 

.AND. 

TR 

.LT. 

.21) 

GO 

TO 

61 

IF 

(TR 

.GE. 

.21) 

GO TO 

71 







91 Call IBI {5.C|_Il*26 f XMI*5,CD204»lORDER*lPT»CL*XM»CDRG04*lERR) 
CD=CDR604 
WRITE (6*201 ) TR 

201 FORMAT<*OTHICKNESS RATIO=*,F5.3,# IS OUT OF RANGE • 

THE VALUES FOR T/C=.04 HAVE BEEN RETURNED#) 

60 TO 250 

11 CALL IBI (5*CLII*26*XMI»5»CD204*IORDER»IPT*CL*XM»CDRG04*IERR) 
IPT (1)=-1 

CALL IBI (5,CLI I *26* XMI *5* CD206* IORDER , IPT*CL* XM»CDRG06» IERR) 
CD=CDRG04 ♦ (CDRG06-CDRG04) #( ( TR-. 04 ) / ( . 06-. 04 ) ) 

60 TO 250 

21 CALL IBI (5*CLII»26*XMI,5,CD206»IORDER» IPT»CL*XM,CDRG06» IERR) 
IPT ( 1 ) =-l 

CALL IBI (5*CLI I »26*XMI ,5,CD209» IORDERt IPT* CL* XMt CDRG09* IERR) 
CD=CDR606 ♦ (COR609 - CDR606 ) * ( ( TR-. 06 ) / ( . 09- . 06 ) ) 

60 TO 250 

31 CALL IBI (5*CLII»26»XMI *5*CD209» IORDER* IPT»CL*XM*CDRG09* IERR) 
IPT (1)=-1 

CALL IB I (5*CLI I »26*XMI f 5»CD212* IORDER* IPT»CL* XM» CDR612* IERR) 
CD=CDR609* (CDRG12-CDR609) * ( (TR-.09) / ( , 12-.09) ) 

60 TO 250 

41 CALL IBI (5*CLI I *26»XMI *5»CD212» IORDER* IPT*CL*XM»CDRG12* IERR) 
IPT ( 1 ) =— 1 
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onooooooooooooooooooo 


CALL IBI (5,CLII»26.XMI*5,CD215*I0R0ER*IPT*CL*XM*CDRG15,IERR) 
CD=CDRG12 ♦ (C0RG15-CDRG12)*( (TR-.12)/(.15-.12) ) 

51 CALL 0 lBi° (5*CLII*26»XMI*5*CD215* I ORDER » I p T * CL * XM» CORGIS » I ERR) 

CALL ( lBrU.CLII,26.XMl,5,C0218.l0RDER,lPTtCL.XM.C0RG18,IERR) 

CD=CDR615+ (CDRG18-CDRG15) * ( (TR-. 15) / < • 18-. 15) ) 


61 CALL IBI <5.CLII,26.XMI,5,CD218.I0RDER.IPT,CL»XM*CDRG18.IERR) 

CALL ^ IBI (5*CLII*26»XMI*5*C0221* I ORDER* IPT*CL*XM*CDRG21*IERR) 
CD=CDRG18«-(C0RG21-CDRG18)*( (TR-. 18) / ( .21-. 18) ) 


71 CALL°IBI° (5.CLII»26.XMI,5»CD221*I0RDER»IPT»CL*XM*CDRG21» IERR) 

C0=CDRG21 

IF (TR .GT. *21) WRITE (6*204) TR 
204 FORMAT (*OTHlCKNESS RATI0=**F5.3,* IS OUT OF RANGE. 

&»/* THE values FOR T/C=.21 HAVE BEEN RETURNED.*) 

250 I F ( CL .GT. .8) GO TO 251 

251 CALL R COMPUT(D*XM,ALT*COR*TR,AA»CDT»CL»CDtCLDES) 

CD=CDT 

RETURN 

END 


SUBROUTINE aER03(XLD»CL»CD*XM*AA* IKEY *TR» CLOES* ALT » COR * 0) 


THIS SUBROUTINE IS DESIGNED TO COMPUTE THE AIRFOIL 
CHARACTERISTICS FOR A 16 SERIES AIRFOIL WITH A GIVEN CAMBER, 


THIS SUBROUTINE RELATES CL» CD* CL/CD* MACH* T/C* AND ALPHA. 
IT REPRESENTS THE DATA OF A 16-3XX AIRFOIL. 


XM=RELATIVE MACH NO. AT BLADE ELEMENT 
AA=ANGLE OF ATTACK IN DEGREES 
IKEYU CL=CL (MACH* ALPHA »T/C) 

: cd=cd(mach*cl*t/c) 

: XLD=CL/CD 

IKEY2: ALPHA=ALPHA (MACH»CL»T/C) 

: CD=CD(MACH*CL*T/C) 

:XLD=CL/CD 

TR=T/C 


DIMENSION IORDER (2) *IPT (2) ♦ ALP304 (26*9) *ALP306 (26*9) * 
& ALP309 (26*9) ♦ ALP312 (26*9) * ALP315 (26*9) * ALP318 (26*9) * 
8, ALP321 (26.9) »CLI (9) *XMI (26) *ALPI (7) *CL304(7»26) * 

8, CL 306(7* 26) ♦ CL 309(7* 26) »CL3l2(7,26) *CL315(7*26) * 

8, CL31 8 (7*26) *CL321 (7.26) *CD304(5,26) *CD306(5*26) * 

& CD309(5*26) *CD312(5*26) *CD315(5*26) *CD318(5*26) * 



8. CD321 (5*26) * CL 1 1 (5) 


DATA { (CL304 ( I » J) , J=1 *26) » 1 = 1 * 

4)/ 




-.316, 

1 

— • 1 84 » 

-.211* 

-.232, 

-.245, 

-.265, 

-.276, 

-.287, 

-.301, 

1 

-.327, 

-.326, 

-.314, 

-.289, 

-.263, 

-.242* 

-.226, 

-.215, 

— .210, 

1 

-.212* 

-.219, 

-.232, 

-.244, 

-.255, 

-.281* 

-.294, 

-.295, 


2 

.052, 

.055, 

• 061 , 

.064, 

• 067 , 

.069, 

.073, 

.077, 

.080, 

2 

♦ 084 , 

.090, 

.096, 

.102, 

.107, 

. 1 03 , 

.078, 

.027, 

-.002, 

2 

.021, 

. 050 , 

.065, 

.077, 

.070, 

-.038, 

-.116, 

-.141, 

.368, 

3 

.262* 

.284, 

.305, 

.319, 

.334, 

.341, 

.349, 

.357, 

3 

.378, 

.390, 

.407, 

.407, 

.381, 

.345, 

.308* 

.272, 

.258, 

3 

.273* 

.300, 

.327, 

.330, 

.306, 

.154, 

.028* 

-.024, 


4 

.492, 

.514, 

.533, 

.547, 

.561, 

• 569, 

.580, 

.590, 

.601, 

4 

.613* 

.626 , 

.643, 

.637, 

.606, 

.575, 

.543* 

.511, 

.499, 

4 

.521* 

.544, 

.568, 

.569, 

.534, 

.320, 

.148, 

.084/ 


DAT A ( (CL304 ( I » J) » J = 1 » 26 ) ♦ I =5 * 

7)/ 



.853, 

.869, 

5 

• 656, 

.696, 

.735, 

.761, 

,794, 

.810, 

.831, 

5 

.875, 

.866, 

.846, 

.826, 

.797, 

.768, 

.739* 

.717, 

.708, 

5 

.734, 

.759, 

.780, 

.781, 

.740, 

• 464 , 

• 266 * 

.200, 

1.023, 

6 

.831, 

.888, 

.930, 

.958, 

.991, 

1.015, 

1.036* 

1.035, 

6 

1.011, 

.994, 

.977, 

.960, 

.943, 

.925, 

.903, 

.881, 

.870, 

6 

.893, 

.924, 

.957, 

.945, 

.900, 

.608, 

.393* 

.306, 

1.151, 

7 

.977, 

1.028, 

1.069, 

1.097, 

1.137, 

1.149, 

1.155, 

1.156, 

7 

1.138* 

1 . 126 , 

1.109, 

1.090, 

1.070* 

1.051, 

1.031, 

1.011, 

1.006, 

7 

1.026, 

1.050, 

1.072, 

1.077, 

1.038, 

.746, 

.524, 

.415/ 


D ATA ( (CL306 ( I *. 

J) , J=l*. 

2b) , 1=1 i 

>4) / 





1 

-.184, 

-.180, 

-.178, 

-.173, 

-.168, 

-.165, 

-.159, 

-.152, 

-.146, 

1 

-.139, 

-.131, 

-.123, 

-.119, 

-.171, 

-.246, 

-.320, 

-.374, 

-.346, 

1 

—.301 , 

-.256, 

-.221, 

-.223, 

-.232, 

-.287, 

-.322, 

-.305, 

.109, 

2 

• 073* 

.071 , 

.075, 

.078, 

.084, 

.089, 

.096, 

.102, 

2 

.119, 

.129, 

.137, 

.115, 

.056, 

-.003* 

— • 063 , 

-.087, 

-.063, 

2 

-.025, 

.012, 

.023, 

. 010 , 

-.003, 

-.080, 

-.134, 

-.129, 

.377, 

3 

.276, 

.292, 

.312, 

.325, 

.338, 

.348, 

.357, 

.367, 

3 

.387* 

.397 , 

.395, 

.355, 

.304, 

.252, 

.201, 

.182, 

.200, 

3 

.238, 

.275, 

.295, 

.282, 

.259, 

.120, 

.020, 

—.015, 

.618, 

4 

.501, 

.514, 

.537, 

.554, 

.572, 

.581, 

.590* 

.599, 

4 

• 636 , 

. 646 , 

.608, 

.565, 

.521, 

.477, 

.433, 

.413, 

. 447 , 

4 

• 483 * 

.520, 

.523, 

.495, 

.462, 

. 266 , 

.129, 

.093/ 


DAT A ( ( CL306 ( I ♦ 

J) , J=1 , 

26) ,1=5 

,7)/ 




.843, 

5 

.655 , 

.691, 

.737, 

• 763 , 

.789, 

.803, 

.821, 

.338, 

5 

.828, 

.797, 

.761, 

.725, 

.689, 

.653, 

.620, 

. 606 , 

. 635 , 

5 

.667, 

.699, 

.714, 

.691, 

.647, 

• 385 , 

.249, 

.208, 


6 

• 815, 

.867, 

.919, 

.952, 

.985, 

1.001, 

1.004, 

.989, 

.963, 

6 

.936, 

.909, 

.882, 

.848, 

.813, 

.779, 

.744, 

.728, 

.749, 

6 

.782, 

.814, 

.837, 

.821, 

.782, 

.553, 

.396, 

.322, 

1.083, 

7 

.955, 

1.003, 

1.054, 

1.087, 

1.126, 

1.134, 

1.125, 

1.113, 

7 

1.053, 

1.023, 

.993, 

.963, 

.932, 

.902, 

.875, 

.854, 

.873, 

7 

.908, 

.944, 

.968, 

.949, 

.921, 

.700, 

.534, 

.417/ 


DATA ( ( CL309 ( I » 

J) , J=1 , 

26) ,1=1 

,4)/ 



-.109, 

-.105, 

1 

-.146, 

-.146, 

-.134, 

-.127, 

-.120, 

-.116, 

-.113, 

1 

-.095, 

-. 140 , 

-.232, 

-.341, 

-.416, 

-.416, 

-.385, 

-.322, 

-.279, 

1 

-.273, 

-.274, 

-.274, 

-.275, 

-.275, 

-.283, 

-.287* 

-.281, 

.097, 

2 

• 058 , 

.062, 

.069, 

.073, 

.079, 

.082, 

.085* 

.089, 

2 

.103, 

.071, 

-.013, 

-.112, 

-.184, 

-.181, 

-.132, 

-.087, 

-.057 , 

2 

— . 056, 

-.061 , 

-.066, 

-.071, 

-.077, 

-.107, 

-.127, 

-.132, 

.336, 

3 

.253, 

.266, 

.282, 

.291, 

• 305 , 

.312, 

.320* 

.329, 


46 



176 , 


3 

• 328 » 

.286, 

.216, 

.134, 

.059, 

.055, 

.097, 

.150, 

3 

.166, 

• 152, 

.139, 

.125, 

• 112, 

.042, -.003* 

-.028, 

4 

.461 , 

.487, 

.512, 

.529, 

.552, 

.563, 

.574, 

.580, 

4 

• 526 ♦ 

.449, 

.372, 

.303, 

.256, 

.260, 

• 306 ♦ 

.355, 

4 

.368. 

.349, 

.330, 

.311, 

.291, 

.195, 

.131, 

.086/ 

DATA( (CL309 (I 

J) , J=l»26) , 1=5, 

7)/ 




5 

.615. 

.659, 

.700, 

.721, 

.746, 

.765, 

.776, 

.761, 

5 

• 665. 

.602 , 

.539, 

.475, 

.429, 

.434, 

.474, 

.527, 

5 

.529, 

.511, 

.488, 

.466, 

.443, 

.331, 

.253, 

.201, 

6 

.758. 

.815, 

• 861 , 

.893, 

.930, 

.942, 

.926, 

.892, 

6 

.781, 

.726, 

.670, 

.618, 

.581, 

.596, 

.639, 

.681, 

6 

.683. 

.658 , 

.633, 

.608, 

.583, 

.459, 

. 366, 

.296, 

7 

.907, 

.956, 

1.012, 

1.048, 

1.040, 

1.016, 

.979, 

.933, 

7 

• 843, 

.797, 

.752, 

.708, 

• 670 , 

.679, 

.718, 

.758, 

7 

.757, 

.737, 

.716, 

. 696 , 

,675. 

.553 ♦ 

.472, 

.407/ 

DATA ( ( CL31 2 ( 1 ♦ J) ,J=1*26) »I = li 

4) / 




1 

-.109, 

-.115, 

-.130, 

-.142, 

-.156, 

-.163, 

-.173, 

-.182, 

1 

-.240, 

-.280, 

-.328, 

-.394, 

-.412, 

-.386, 

-.285, 

-.211, 

1 

-.191, 

-.200, 

-.209, 

-.218, 

-.226, 

-.262, 

-.275, 

-.273, 

2 

.057, 

• 061 , 

.071, 

.079, 

• 088, 

.093, 

,103. 

.112, 

2 

.036, 

-.033, 

-.116, 

-.207, 

-.233, 

-.203, 

-.143, 

-.080, 

2 

-.066, 

-.076, 

-. 085, 

-.093, 

-.102, 

-.141. 

-.153, 

-.155, 

3 

.214, 

.227, 

.242, 

• 250 , 

.261, 

. 266 , 

.272, 

.279, 

3 

.232, 

.143, 

.054, 

-.031, 

-.059, 

-.036, 

.034, 

.094, 

3 

.098, 

.082, 

.069, 

.057, 

.045, 

-.008, 

-.027, 

-.041, 

4 

.410, 

.426, 

.442, 

.452, 

,465, 

.476, 

.488, 

.479, 

4 

.355, 

.287, 

.218, 

.154, 

.127, 

.151, 

.213, 

.276, 

4 

.291, 

.267, 

.245, 

.229, 

.212, 

.140, 

.093, 

.073/ 

DATA ( (CL312 ( I *> 

J ) , J= 1 , 

26) » 1=5 1 

, 7 ) / 




5 

.553, 

.585, 

.613, 

.632, 

• 654 , 

.669 , 

.649, 

.^93 , 

5 

.483, 

• 423, 

.361, 

.299, 

.274, 

.305, 

.364, 

.423, 

5 

• 4 34 , 

.414, 

.394, 

.375, 

.360, 

.278, 

.219, 

.184, 

6 

.687, 

.736, 

.780, 

.810, 

.842, 

.856, 

.833, 

.775, 

6 

.649, 

.578, 

.507, 

.441, 

.414, 

.444, 

.499, 

.559, 

6 

• 575 , 

.554, 

.533, 

.511, 

.490, 

.403, 

.337, 

.295, 

7 

.828* 

.871, 

.903, 

.928, 

.968, 

.945, 

.895, 

.838, 

7 

.707, 

• 641 , 

.575, 

.513, 

.489, 

.518, 

,569 , 

.635, 

7 

.640, 

.625, 

.610, 

.596, 

.582, 

.505, 

• 448, 

.406/ 

DATA ( (CL315 ( I , 

J) » J=l» 

26) , 1=1 

,4) / 



-.137, 

1 

-.124, 

-.119, 

-.119, 

-.121, 

-.122, 

-.123, 

-.124, 

1 

-.287, 

-.362, 

-.435, 

-.458, 

-.435, 

— .352 , 

-.250, 

-.194, 

1 

-. l90» 

-.190, 

-. 190, 

-.190, 

-. 190. 

-.197, 

-.213, 

-.226, 

2 

.023, 

.026, 

.033, 

.037, 

.042, 

.044 , 

• 046, 

.043, 

2 

-.083, 

-.180, 

-.276, 

-.303, 

— . 264 , 

-.192, 

-.125, 

-.099, 

2 

-.101, 

-.103, 

-.104, 

-.106, 

-.107, 

-.116, 

-.119, 

-.121, 

3 

.197, 

.194, 

.198, 

.202, 

.211, 

.215, 

.217, 

.200, 

3 

• 055 , 

- • 042 , 

-.135, 

-.180, 

-.145, 

-.070, 

.003, 

.028, 

3 

.023, 

.020, 

.016, 

.012, 

.009, 

-.009, 

-.022, 

-.023, 

4 

.374, 

.386, 

.401, 

.410, 

.422, 

.430, 

.425, 

.398, 

4 

.251, 

.153, 

.058, 

.017, 

.052, 

.130, 

.205, 

.231, 

4 

.214, 

.206, 

.199, 

.192, 

.185, 

.147, 

.116, 

.092/ 

DATA( (C|_3l5 ( I ♦ 

J) , J = l» 

26 ) ,1=5 

,7)/ 




5 

.515, 

.538, 

.562, 

.583, 

.605* 

.604, 

.576, 

.525, 

5 

.381, 

.285, 

.196, 

.169, 

• 210, 

.285, 

• 356, 

.380, 

5 

.364, 

• 355 , 

.345, 

.336, 

• 326, 

.274, 

.229, 

.197, 


.575, 

.378, 


.724, 

.542, 

. 837 , 

.699, 

. 888 , 

.772, 


.204, 

.187, 

.096, 

,058, 

.282, 

.114, 

• 424 , 
.305, 


.538, 

.449, 

.717, 

.585, 

.772, 

.655, 


. 212 , 

.191, 

.007, 

. 100 , 

.144, 

.027, 

.329, 

. 222 , 


• 464, 
.374, 



6 

.633* 

.661 , 

.695, 

.725, 

.758, 

.753, 

.714, 

.661, 

.569 

6 

.478, 

.387, 

.285, 

.263, 

• 304, 

.372, 

.430, 

.453, 

.450 

6 

.441* 

.433, 

.424, 

.416, 

.408, 

.365, 

• 328, 

.292, 


7 

.742, 

.777, 

.813, 

.842* 

.874, 

.857, 

.802, 

.730, 

.641 

7 

.553* 

.464, 

.353, 

.319, 

.357, 

.432, 

.503, 

.530, 

.525 

7 

.519, 

.512, 

.506, 

.499, 

.492, 

.452, 

.422, 

.393/ 


DATA ( (CL318 ( I » 

J ) , J = 1 , 

26) ,1=1 

,4)/ 





1 

-.157, 

-.175, 

-.196, 

—.213, 

-.236, 

-.269, 

-.319, 

-.383, 

-.457 

1 

-.527, 

-.599, 

-.650, 

-.631, 

-.555, 

-.473, 

-.385, 

-.371, 

-.379 

1 

-.386, 

-.394, 

-.402, 

-.408, 

-.410, 

-.412, 

-.411, 

-.410, 


2 

-.007, 

-.on, 

-.014, 

-.015, 

-.023, 

-.052, 

-.096, 

-.153, 

-.227 

2 

-.313, 

-.404, 

-.492, 

-.473, 

-.347, 

-.239, 

-.204, 

-.210, 

-.215 

2 

-.221, 

-.227, 

-.229, 

-.232, 

-.235, 

-.244, 

— . 248 , 

-.256, 


3 

.148, 

.155, 

.161, 

.167, 

.173, 

.155, 

.104, 

.017, 

-.072 

3 

-.161, 

-.243, 

-.238, 

-.243, 

-.140, 

-.048, 

-.004, 

-.006, 

-.009 

3 

-.013, 

-.016* 

-.020, 

-.023, 

-.027, 

-.042, 

-.053, 

-.063, 


4 

.318, 

.331, 

.337, 

.339, 

.341, 

.305, 

.248, 

.162, 

.076 

4 

-.010, 

-.079, 

-.109, 

-.070, 

.033, 

.123, 

.147, 

.144, 

.140 

4 

.135, 

.130, 

.125, 

.119, 

.114, 

.086, 

• 066 , 

.048/ 


DAT A ( ( CL31 8 ( I » 

J) *J=1* 

26) , 1=5 

,7)/ 





5 

• 456 , 

.470, 

.486, 

.494, 

.485, 

.443, 

.382, 

.310, 

.225 

5 

.140, 

.069, 

.039, 

.096, 

.188, 

.263, 

.294, 

.289, 

.283 

5 

.274, 

.264, 

.254, 

.246, 

.239, 

.201, 

,170, 

.143, 


6 

.552, 

.598, 

.637, 

.656, 

.642, 

.589, 

.508, 

.427, 

.347 

6 

.262, 

.165, 

.150, 

.195, 

.295, 

.381, 

.400, 

.395, 

.387 

6 

.379, 

.371, 

.363, 

.355, 

.347, 

.301, 

.264, 

.232, 


7 

.653, 

.706, 

.753, 

.782, 

.744, 

.661, 

.572, 

.483, 

.394 

7 

.305, 

.204, 

.179, 

• 235 , 

.337, 

.416, 

.433, 

.429, 

.419 

7 

.409, 

.400, 

.392, 

.383, 

.376, 

.339, 

.303, 

.271/ 


DAT A ( (CL321 ( I » 

J) , J=l» 

26) , 1=1 

,4) / 





1 

-.239, 

-.242, 

-.237, 

-.232, 

-.226, 

-.236, 

—.264, 

-.323, 

-.389 

1 

-.454, 

-.480, 

-.457, 

- . 378 , 

- . 298 , 

-.243, 

-.243, 

-.245, 

-.247 

1 

-.249, 

-.252, 

-.254, 

-.256, 

— . 258 , 

-.272, 

-.285, 

-.295, 


2 

-.065, 

-.063, 

-.062, 

-.052, 

-.046, 

-.053, 

-.091, 

-.175, 

-.259 

2 

-.333, 

-.360, 

-.332, 

-.269, 

— • 166, 

-.082, 

-.082, 

-.085, 

-.087 

2 

-.090, 

-.092, 

-.095, 

-.097, 

-.100, 

-.116, 

-.133, 

-.151, 


3 

.095, 

.095, 

.098, 

.105, 

.117, 

.113, 

.093, 

,012. 

-.102 

3 

-.216, 

-.264, 

-.242, 

-.161, 

-.035, 

.020* 

• 020, 

.017, 

.014 

3 

.012, 

.009, 

.006, 

.004, 

.001, 

-.012, 

—.024, 

-.033, 


4 

.243, 

.255, 

.263, 

.281, 

.295, 

.291, 

.255, 

.176, 

.033 

4 

-.110, 

-.162, 

-. 149, 

-.070, 

.071, 

.124, 

.122, 

.117, 

.111 

4 

.106, 

.100, 

.095, 

.089, 

.084, 

.062, 

.044, 

.026/ 


D ATA ( (CL321 (I » 

J ) , J = 1 , 

26), 1=5 

,7) / 





5 

.381, 

.397, 

.405, 

.429, 

.451, 

.440, 

.403, 

.309, 

.161 

5 

.012, 

-.035, 

-.001, 

.089, 

.200, 

.258, 

• 251, 

.243, 

.236 

5 

.230, 

.223, 

.217, 

.210, 

.204, 

.165, 

.136, 

.108, 


6 

. 450 , 

.471 , 

.492, 

.537, 

. 560 , 

.544* 

.498, 

.379, 

.243 

6 

.106, 

. 056, 

.071, 

.161, 

.289, 

.336, 

.332, 

.326, 

.320 

6 

.313* 

.306, 

.299, 

.293, 

.286, 

.246, 

.207, 

.170, 


7 

.506, 

.538, 

.592, 

.643, 

.678, 

.655, 

.597, 

.482, 

.311 

7 

.139, 

.081 , 

.104, 

.187, 

.332, 

.365, 

.364, 

.358, 

.351 

7 

.344, 

.337, 

.330, 

.323, 

.316, 

.278, 

.242, 

.206/ 


DATA ( (A|_P304 ( J 

, N ) » N = 1 

,9) , J=1 

,13) / 





8. 

-5.83, 

-4.14, 

-2.44, 

-.59, 

1.20, 

3.32, 

5.65, 

8.32, 

11.05 

& 

-5.42, 

-3.92, 

-2.41, 

-.73, 

1.01, 

2.95, 

5.08, 

7.60, 

10.46 


48 



b 

-5.15* 

-3.78, 

-2.42* 

-.86* 

.83, 

2.66, 

4.67, 

7.01, 

9.88, 

& 

-5 .00* 

-3.71 ♦ 

-2.41, 

-.93, 

.71 , 

2.50, 

A. 40, 

6.60, 

9.48, 

b 

-4.81* 

-3.61* 

-2.40, 

-1.00* 

.58, 

2.33, 

4.06, 

6.12, 

8.86, 

& 

-A. 72* 

-3.58* 

-2.40* 

-1.04, 

.52, 

2.26, 

3.92, 

5.85, 

8.76, 

& 

-4.63* 

-3.52* 

-2.41, 

-1.08, 

.44, 

2.16, 

3.75, 

5.65, 

8.76, 

& 

-4,52* 

-3.47 * 

-2.41, 

-1.12, 

.37, 

2.08, 

3.60 , 

5.62, 

8.73, 

& 

-4.42* 

-3,41* 

-2.40, 

-1.17, 

.27, 

1.99, 

3.49, 

5.70, 

8.77, 

& 

-4.36* 

-3.38, 

-2.41, 

-1.21, 

.19, 

1.89, 

3.43* 

5.84, 

8.98, 

& 

-4.36* 

-3.40* 

-2.43, 

-1.27, 

.08* 

1.76, 

3.45, 

6.09, 

9.12, 

& 

-4.42* 

-3.44, 

-2.47, 

-1.33, 

-.05, 

1.64, 

3.55* 

6.35, 

9.38, 

& 

-4.57, 

-3.54, 

-2.52, 

-1.36, 

-.05, 

1.68, 

3.72* 

6.62* 

9.69/ 

DATA( (AlP304<vJ< 

N) ,N=1 

>0 

« 

<_ 

11 

I-* 

,26)/ 





& 

-4.74* 

-3.66, 

— 2 • 58 , 

-1.32* 

.17, 

1.95, 

4.04, 

6.90, 

10.05, 

& 

-4.92* 

-3.76, 

-2.60, 

-1.20, 

.48, 

2.26, 

4.41, 

7.19, 

10.37, 

& 

-5.14, 

-3.83, 

-2.51, 

— . 94 , 

.78, 

2.58, 

4.74* 

7.52, 

10.64, 

& 

-5.53, 

-3.88, 

-2.22, 

-.59, 

1.07, 

2.86, 

5.01, 

7.83, 

10.91, 

$. 

-5.83, 

-3.90, 

-1.98, 

-.45, 

1.18, 

2.97, 

5.14, 

7.91, 

10.85, 

& 

-5,61* 

-3.90, 

-2.18, 

-.58, 

1.02, 

2.74, 

4.83* 

7.61 , 

10.62, 

6. 

-5.35, 

-3.86, 

-2.37, 

-.80, 

.e2, 

2.52, 

4.50, 

7.21, 

10.38, 

& 

-5.13, 

-3.78, 

-2.44, 

-.97, 

.61, 

2.30, 

4.23* 

6.75, 

10.23, 

b 

-4.97, 

-3.73, 

-2.48, 

-1.03, 

.59, 

2.29, 

4.23, 

6.83, 

9.86, 

& 

-4.89, 

-3.66, 

-2.43, 

-.90, 

.82, 

2.64, 

4.75, 

7.45, 

10.35, 

& 

-4.98, 

-3.33, 

-1.60, 

.55, 

3.11, 

5.89, 

8.78, 

11.68, 

14.58, 

& 

-5.19, 

-2.94, 

-.39, 

2.88, 

6.11, 

9.16, 

12.21, 

15.27, 

18.32, 

& 

-5.36, 

-2.77, 

.44, 

4.00, 

7.72, 

11.39, 

15.06, 

18.73, 

22.40/ 

DATA* (ALP306U 

»N) ,N=1 

,9) , J=1 » 

13)/ 





& 

-5.68, 

-4.12, 

-2.57, 

-.75, 

1.10, 

3.29, 

5.31, 

8.64, 

11.50, 

b 

-5.75, 

-4. 16 , 

-2.57, 

— . 83 , 

.97, 

2.97, 

5.24, 

7.96, 

10.90, 

& 

-5.75, 

-4.17, 

-2.59, 

-.95, 

.78, 

2.63, 

4.69, 

7.20, 

10.16, 

b 

-5,81, 

-4.22* 

-2.62, 

-1.01, 

• 66 , 

2.44, 

4.39, 

6.71, 

9.67, 

& 

-5.84, 

-4.25, 

-2.67, 

-1.09, 

.53, 

2.26, 

4.11, 

6.21, 

9.05, 

b 

-5.85* 

-4.28, 

-2.70* 

-1.14, 

. 45 , 

2.17, 

3.97, 

5.99, 

8.99, 

b 

-5.89, 

-4.32, 

-2.75, 

-1.20, 

.37, 

2.09, 

3.82* 

5.96, 

9.24, 

b 

-5.95* 

-4.38, 

-2.80, 

-1.26, 

.28, 

2.01, 

3.68* 

6.18, 

9.40, 

b 

-5.99* 

-4,42* 

-2.85, 

-1.32, 

.19, 

1.85, 

3.62, 

6.62, 

9.95, 

b 

-6.02* 

-4.47, 

-2.92* 

-1.40, 

.10, 

1.71, 

3.71, 

7.09, 

10.51, 

b 

-6.07, 

-4.53, 

-2.99, 

-1.47, 

.02, 

1.64, 

4.05, 

7.60, 

11.11, 

b 

-6.13* 

-4.59, 

-3.05, 

-1.51, 

.05, 

1.92, 

4.64* 

8.13, 

11.73, 

b 

-6,40 , 

-4.69, 

-2.98, 

-1.29, 

. 43 , 

2.44, 

5.22, 

8.64, 

12.12/ 

DATA* (ALP306(J 

, N ) ,N = 1 

,9) , J= 1 4 » 26 ) / 





& 

-6.02* 

-4.26, 

-2.49, 

— . 84 , 

.88, 

2.94, 

5.79, 

9.14, 

12.50, 

& 

-5.27, 

-3.62, 

-1.98, 

-.41, 

1.32, 

3.40, 

6.34, 

9.59, 

12.85, 

5, 

-4.62* 

-3.07, 

-1.52, 

-.01, 

1.72, 

3.79, 

6.85, 

9.91, 

12.96, 

b 

-4.18* 

-2.79, 

-1.35, 

.16, 

1.89, 

3.94, 

7.14* 

10.32, 

13.49, 

b 

-4.38* 

-2.97, 

-1 .52, 

0.00, 

1.62, 

3.63, 

6.82* 

10.05, 

13.27, 

b 

-4.72* 

-3.27, 

-1.81, 

-.29, 

1.32, 

3.27, 

6.29, 

9.46, 

12.63, 

b 

-5.07* 

-3.58, 

-2.09, 

-.57, 

1.02, 

2.89, 

5.76, 

8.86, 

11.94, 

b 

-5.47* 

—3.83, 

-2.19, 

-.70, 

.92, 

2.81, 

5.40, 

8.49, 

11.54, 

b 

-5.52* 

-3.80* 

-2.09, 

— .60* 

1.11, 

3.07, 

5.68, 

8.80, 

11.92, 

b 

-5.47, 

-3.72, 

-1.98, 

-.45, 

1.39, 

3.49, 

6.26, 

9.14, 

12.01, 

b 

-5.09* 

-3.16, 

-1.20, 

1.10* 

4.18, 

6.64, 

9.36, 

12.08, 

14.80, 

b 

-4.83* 

-2.70, 

-.26, 

3.18, 

6.06, 

8.96, 

11.86, 

14.75, 

17.65, 

b 

-5.08* 

-2.81* 

.28, 

3.86, 

7 . 64 , 

11.85, 

16.06, 

20.27, 

24.48/ 

DATA* (ALP309(J 

*N> »N=1 

*9) , J=1 , 

13)/ 





b 

-6.49, 

-4.53, 

-2.57, 

-.54, 

1.41, 

3.81, 

6.56, 

9.25, 

11.93, 



& 

-6.44, 

-4 • 52 , 

-2 

, b0 , 

-.64, 

1.22, 

3.31, 

5.81, 

B • 

62 

11.46* 

& 

-6 • 62 » 

-4.65, 

-2 

.68, 

-.77, 

1.03, 

2.94, 

5.24, 

7 . 

84 

10.49, 

& 

-6.73, 

-4.73, 

-2 

.73, 

-.83, 

.92, 

2.74, 

4.92, 

7 . 

38 

9.96, 

& 

-6.81 * 

-4.80, 

-2 

.79, 

-.93, 

.77, 

2.49, 

4.59, 

7 . 

27 

10.91, 

& 

-6 . 87 ♦ 

-4.85, 

-2 

.83, 

-.97, 

.70, 

2.37, 

4.40, 

7 . 

57 

12.97, 

6, 

-6. 90 ♦ 

-4.88, 

-2 

.86, 

-1.02, 

. 63 , 

2.26, 

4.32, 

8. 

79 

16.34, 

& 

-6 . 94 ♦ 

-4.92, 

-2 

.90, 

-1.07, 

.57, 

2.22, 

4.60, 

11. 

27 

21.02, 

& 

-6 . 92 » 

-4.94, 

-2 

.96, 

-1.14, 

.54, 

2.34, 

5.35, 

12. 

39 

20.24, 

& 

-7.08* 

-5.05» 

-3 

.04, 

-1.14, 

.73, 

3.06, 

6.61, 

13. 

06 

19.52, 

& 

-6.46 » 

-4.57, 

-2 

. 67 , 

-.80, 

1.40, 

3.97, 

8.00, 

13. 

72 

19.35, 

& 

-5.53* 

-3 . 7 1 , 

-1 

.89, 

-.14, 

2.34, 

4.93, 

9.17, 

14. 

05 

18.93, 

& 

-4.52* 

-2.77, 

-1 

.09, 

• 7 B f 

3.13, 

5.75, 

10.04, 

14. 

49 

18.93/ 

DATA ( (ALP309 ( J» 

N) 

»N=1 , 

9) , J=14,26)/ 





19.91 , 

& 

-3.86, 

-2.14, 

- 

.49, 

1.43, 

3.66, 

6.43, 

10.92, 

15. 

42 

& 

-3.86, 

-2 . 1 5 , 

- 

.47, 

1.41, 

3.61, 

6.10, 

10.92, 

15. 

73 

20.55, 

& 

-4.12, 

-2.54, 

- 

.85, 

.99, 

3.12, 

5.53, 

10.08, 

15. 

14 

20.20, 

& 

-4.66 , 

-2.9b, 

-1 

.27, 

.49, 

2.52, 

4.95, 

9.09, 

14. 

29 

19.48, 

& 

-5.09, 

-3.29, 

-1 

.51 , 

.24, 

2.27, 

4.74, 

8.77, 

14. 

25 

19.73, 

& 

-5.17, 

-3.33, 

-1 

.50, 

• 34 , 

2.40, 

4.92, 

9.16, 

14. 

57 

19.97, 

& 

-5.18, 

-3.31* 

-1 

.43, 

.49, 

2.63, 

5.21* 

9.59, 

14. 

66 

19.72, 

6 . 

-5.21, 

-3.29, 

-1 

.36, 

• 64 , 

2.89, 

5.54, 

10.02, 

14. 

84 

19.66, 

& 

-5.23, 

-3.25* 

-1 

.28, 

.81, 

3.15, 

5.89, 

10.36, 

14. 

91 

19.45, 

& 

-5.26, 

-3.24, 

-1 

.19, 

.98, 

3.43, 

6 . 37 , 

10.72, 

15. 

07 

19.41, 

& 

-5.33, 

-3.0b, 

- 

.56, 

2.07, 

5.08* 

9.00, 

13.26, 

17. 

51 

21.77, 

& 

-5.41, 

-2.91 , 


.04, 

3.13, 

6 .64 , 

10.42, 

14.19, 

17. 

96 

21.74, 

& 

-5.60, 

-2.91 , 


.49, 

3.98, 

7.87, 

11.48, 

15.08, 

18. 

68 

22.29/ 

OATAt (ALP312 Ui 

N) 

,N = 1 , 

.9) ♦ J=l» 

13)/ 






& 

-7.51, 

-5.10, 

-2 

.69, 

-.18, 

1.90, 

4.70, 

7.60, 

10. 

44 

13.28, 

6 

-7.24, 

-4.97, 

-2 

.69, 

-.33, 

1.74, 

4.20, 

6.93, 

9. 

94 

12.95, 

5, 

—6 , 69 , 

-4.70, 

-2 

.71, 

-.49, 

1.58, 

3.85, 

6.33, 

9. 

,58 

12.83, 

& 

-6.33, 

-4.52, 

-2 

.71, 

-.58, 

1.49, 

3.64, 

5.89, 

9. 

22 

12.61, 

(, 

-6.00, 

-4.3b, 

-2 

.72, 

-.71, 

1.36, 

3.43, 

5.55, 

0. 

,51 

11.68, 

& 

-5.85, 

-4.29, 

-2 

.73, 

-.76, 

1 .28, 

3.28, 

5.40, 

9. 

,24 

13.73, 

S. 

-5.64, 

-4.20* 

-2 

.75, 

-.85, 

1.19, 

3.39, 

5.64, 

11. 

,39 

17.84, 

& 

-5.48, 

-4, l2 , 

-2 

.76, 

-.95, 

1.21, 

4.08, 

6.79, 

13. 

,14 

19.49, 

& 

-5.31, 

-3.97, 

-2 

.64, 

-.88, 

1.66, 

4.69, 

9.02, 

16. 

, 29 

23.56, 

& 

-5.16, 

-3.71* 

-2 

• 26 , 

-.33, 

2.70, 

5.41, 

11.21, 

18, 

,10 

25.00, 

?. 

-4.97, 

-3.35* 

-1 

.63, 

.79, 

3.66, 

b . 7 0 , 

13.05, 

19, 

,40 

25.75, 

& 

-4.68, 

-2.79, 

- 

. 64 , 

1 .78, 

4.53, 

8.74, 

14.62, 

20, 

,50 

2b. 30, 

5, 

-4.06, 

-1.92, 


.34, 

2.63, 

5.42, 

10.42, 

15.97, 

21, 

.53 

27.08/ 

DATA ( (ALP312(J 

* N ) 

, N= 1,9) , J=14,26) / 





26.96, 

& 

-3.87, 

-1.62, 


.63, 

2.99, 

5.80, 

10.96, 

16.29, 

21, 

,63 

& 

-4.15, 

-1.9b, 


.39, 

2.64, 

5.37, 

10.22, 

15.62, 

21, 

,03 

26.43, 

& 

-5.62, 

-2.80, 

- 

.38, 

1.85, 

4.53, 

8.89, 

14.60, 

20, 

,31 

26.03, 

& 

-6.89, 

-3.83, 

-1 

.08, 

1.16, 

3. 69 , 

7.08, 

12.34, 

17, 

.61 

22.87, 

& 

-7.30, 

-4.20, 

-1 

.33, 

.90, 

3.32, 

6.43, 

12.14, 

17, 

,06 

23.57, 

& 

-7.34, 

-4.14, 

-1 

.20 , 

1.06, 

3.52, 

6.77, 

12.92, 

19, 

,08 

25.23, 

8. 

-7.23, 

-4.00, 

-1 

.04, 

1.28, 

3.81, 

7.30, 

12.93, 

18, 

.56 

24.20, 

& 

-7.08, 

-3.85, 

- 

.90, 

1.49, 

4.09, 

7.74, 

12.94, 

IB, 

.13 

23.32, 

& 

-6.91, 

-3.71 » 

- 

• 76 , 

1.66, 

4.37, 

8.09, 

12.80, 

17, 

.51 

22.21, 

8, 

-6.81, 

-3.58, 

- • 6 1 f 

1.86, 

4.62, 

8.39, 

12.74, 

17 

.09 

21.43, 

& 

-6.29, 

-2.98, 


.11, 

2.87, 

5.95, 

9.06, 

13.78, 

17 

.71 

21.63, 

5. 

-6.05, 

-2.77 , 


.45, 

3.70, 

7.14, 

1 0 . 74, 

14.34, 

17 

.95 

21.55, 

& 

-6.15, 

-2.7b, 


.72, 

4.29, 

7.89, 

11.50, 

15.10, 

10 

.70 

22.31/ 

DAT A ( (ALP315< J 

, N) 

, N = 1 

,9) » J=1 1 

>13)/ 
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5, 

-7. 76 » 

-5.03, 

-2.31 , 

.03, 

2.37, 

5.44, 

9.06, 

12.73, 

16.40, 

5. 

-7.88* 

-5.12, 

-2.36, 

.06, 

2.18, 

5.01, 

8.40, 

11.04, 

15.29, 

& 

-7 • 70 » 

-5.07, 

-2.43, 

.02, 

1.99, 

4.57, 

7.78, 

11.17, 

14.56, 

& 

-7.53* 

-5.00, 

-2.47, 

-.02, 

1.90, 

4.24, 

7.28, 

10.70, 

14.12, 

& 

-7.39* 

-4.95, 

-2.51, 

-.13, 

1.79, 

3.95, 

6.72, 

10.17, 

13.62, 

& 

-7.32* 

-4.92, 

-2.53, 

-.18, 

1.72, 

3.95, 

6.90, 

10.75, 

14.60, 

& 

-7.25, 

-4.89, 

-2.54, 

-.20, 

1.76, 

4.35, 

7.95, 

12.50, 

17.05, 

& 

-6.92, 

-4.70, 

-2.48, 

0.00, 

2.03, 

5.10, 

10.03, 

15.83, 

21,62, 

&. 

-5.72, 

-3.89, 

-2.06, 

.61, 

3.05, 

6.86, 

12.42, 

17.97, 

23.53, 

& 

-5, lit 

-3.1b* 

-.80, 

1.48, 

4.39, 

9.25, 

14.59, 

19.92, 

25.25, 

8. 

-4. 42, 

-2.22, 

.43, 

2.71, 

6.34, 

11.53, 

16.73, 

21.92, 

27.12, 

8. 

-3 ,56 , 

- . 92 , 

1.40, 

4.09, 

9.38, 

15.26, 

21.15, 

27.03, 

32.91, 

8. 

-3.25, 

-.33* 

1.83, 

4.66, 

10.89, 

18.04, 

25.18, 

32.32, 

39.46/ 

0 AT A ( (ALP315(J» 

N) » N= 1 , 

9) , J=14 

,26) / 




39.81, 

& 

-3.59, 

-.92* 

1.47, 

3.87, 

9.62, 

17.17, 

24.72, 

32.26, 

& 

-4.60, 

-2.10, 

• 70 , 

2.90, 

6.93, 

13.60, 

20.27, 

26.93, 

33,60, 

& 

-6.40, 

-3.20, 

- • 05 , 

1.95, 

5.19, 

10.66, 

16.14, 

21.62, 

27.10, 

& 

-8.34, 

-4. 13 , 

-.44, 

1.69, 

4.55, 

9.82, 

15.01, 

20.21 , 

25.40, 

s* 

-8.59, 

-4.20, 

-.43, 

1.77, 

4.68, 

10.00, 

15.33, 

20.67, 

26.00, 

& 

-8.72, 

-4.22* 

-.37, 

1.85, 

4.94, 

10.08, 

15.21 , 

20.33, 

25.46, 

L 

-8.83, 

-4.23* 

-.33, 

1 .94, 

5. 15, 

10.23, 

15.29, 

20.35, 

25.42, 

& 

-8.88, 

-4.23* 

-.27, 

2.01, 

5.39, 

10.29, 

15.17, 

20.05, 

24.93, 

8, 

-9.00, 

-4.24, 

- • 20 , 

2.11, 

5.60, 

10.43, 

15.25, 

20.07, 

24.89, 

& 

-9.06, 

-4.2*, 

-.16, 

2.21 . 

5.80, 

10.57, 

15.33, 

20.10, 

24.86, 

8, 

-9.01, 

-4.07* 

.12, 

2.83, 

6.80, 

11.40, 

16.00, 

20.60, 

25.20, 

& 

-7.98, 

-3.72, 

.32, 

3.49, 

7.53, 

11.79, 

16.04, 

20.30, 

24.55, 

8* 

-7.31, 

-3.50, 

.40, 

4.06, 

8.14, 

12.10, 

16.06, 

20.02, 

23.98/ 

DATA( (ALP318( Ji 

» N ) » N = 1 , 

9) , J=1 , 

13)/ 




18.83, 

8. 

-7.24, 

-4.57, 

-1.91, 

.61, 

3.19, 

6.95, 

10.91, 

14.87, 

8. 

-6.74, 

-4.30, 

-1.87, 

.51, 

2.99, 

6.04, 

9.74, 

13.44, 

17.15, 

8. 

-6.24, 

-4.04, 

-1.84, 

.44, 

2.85, 

5.51, 

8.81, 

12.26, 

15.71, 

& 

-5.89, 

-3.87, 

-1.84, 

. 38 , 

2.79, 

5.31, 

8.29, 

11.46, 

14.63, 

8> 

-5.54, 

-3.66, 

-1.77, 

.32, 

2.82, 

5.46, 

9.10, 

13.02, 

16.94, 

8. 

-5.21, 

-3.3&» 

-1.50, 

.60, 

3.38, 

6.31, 

11.86, 

17.42, 

22.97, 

8. 

-4.73, 

-2.93, 

-1.04, 

1.33, 

4.29, 

8.88, 

15.13, 

21.38, 

27.63, 

8. 

-4.10* 

-2.40, 

-.20, 

2.51, 

5.54, 

12.18, 

19.32, 

26.46, 

33.61 , 

8> 

-3.50* 

-1.65, 

.97, 

3.66, 

8.26, 

16.77, 

25.28, 

33.79, 

42.30, 

& 

-2,81* 

-.51 » 

2.13, 

4.98, 

12.42, 

21.72, 

31.02* 

40.33, 

49.63, 

8. 

-1.95* 

.52, 

3.07, 

7.79, 

18.05, 

28.31, 

30.56* 

48.82, 

59.08, 

8, 

-1.10* 

.98, 

3.47, 

9.45, 

23.24, 

37.03, 

50.83* 

64.62, 

78.41, 

8. 

-1.37* 

.50, 

2.84, 

6.25, 

16.25, 

26.25, 

36.25* 

46.25, 

56.25/ 

DAT A ( (ALP318( J 

»N) » N = 1 1 

.9) , J=14,26)/ 




49.10, 

5. 

-2.51* 

-.58, 

1.62, 

4.22, 

11.00, 

20.52, 

30.05* 

39.57, 

& 

-3.38* 

-1.59, 

.56, 

3.10, 

7.09, 

18.51, 

29.94* 

41.37, 

52.80, 

8» 

-4.17* 

-1.96, 

.05, 

2.72, 

6.00, 

18.12, 

30.24* 

42.36, 

54.48, 

5, 

—4 . 36 , 

-1.90, 

.08, 

2.77, 

6.29, 

18.06, 

29.82, 

41.59, 

53.35, 

8. 

-4.26* 

-1.85, 

.12, 

2.84, 

6.81, 

19.31, 

31.81, 

44.31 , 

56,81, 

8. 

-4.17* 

-1.80, 

.18, 

2.94, 

7.40, 

20.73, 

34.07, 

47.40, 

60.73, 

& 

-4.07* 

-1.74, 

,22. 

3.04, 

8.00, 

21.79, 

35.59, 

49.38, 

63,17, 

8. 

-3.98, 

-1.72* 

.28, 

3.16, 

8.55, 

22.34, 

36.14, 

49.93, 

63.72, 

8, 

-3.91, 

-1.69, 

.32, 

3.28, 

9.21, 

23.50, 

37.79, 

52.07, 

66.36, 

& 

-3.89, 

-1.66, 

.38, 

3.38, 

9.66, 

23.45, 

37.24, 

51.03, 

64.83, 

8 

-3.86, 

-1.56, 

.66, 

3.98, 

11.21, 

21.74, 

32.26, 

42.79, 

i 53.32, 

8 

-3.87* 

-1.51* 

.89, 

4.64, 

12.97, 

23.23, 

33.49, 

43.74, 

i 54.00, 

8 

-3.87, 

-1.42* 

1.14, 

5.28, 

14.62, 

24.07, 

35. 13, 

. 45.38, 

55,64/ 



DATA ( ( ALP321 < J* N) * N=1 * 9) * J=1 * 13) / 


& -5.85* 

-3.55, 

-1.19, 

1.42, 

4.55, 

11.36, 

18.50, 

25.64, 

32.79, 

& -5.77. 

-3.53, 

-1.20* 

1.31, 

4.08, 

9.85, 

15.82, 

21.79, 

27.76, 

& -5.86, 

-3.58, 

-1.23, 

1.24, 

3.93, 

8.16, 

12.16, 

16.16* 

20.16, 

& -5,87. 

-3 . 64 , 

-1.34, 

1.08, 

3.61, 

7.19, 

10.96, 

14.74, 

18.51, 

& -5.93, 

-3.71, 

-1.44, 

.93, 

3.35, 

6.68, 

10.07, 

13.46, 

16.85, 

6 -5.79, 

-3.61, 

-1.36, 

.98, 

3.46, 

7.01, 

10.61, 

14.22, 

17.82, 

& -5.57, 

-3.26, 

-1.01, 

1.32, 

3.96, 

8.06, 

12.10, 

16.14, 

20.16, 

Si -5. 04 , 

-2.34, 

-.13, 

2.36, 

6.41, 

10.29, 

14. 17, 

18.06, 

21.94, 

Si -4.17, 

-1.2b, 

1.51, 

4.95, 

10.62* 

16.50, 

22.38, 

28.26, 

34.15, 

Si -3.11, 

.30, 

3.80, 

11.70, 

23.82, 

35.94, 

48.06, 

60.18, 

72.30, 

Si -2.67, 

1.2b, 

4.77, 

17.52, 

33.52, 

49.52, 

65.52, 

81.52, 

97.52, 

& -3.09, 

.90, 

4.03, 

13.82, 

25.94, 

38.06, 

50.18, 

62.30, 

74.42, 

& -4.40, 

-.72, 

2.88, 

9.00, 

24.38, 

39.77, 

55.15, 

70.54, 

85.92/ 

DAT A ( (ALP321 ( J 

N) »N=1 

,9) , J=14,26)/ 





Si -5.55, 

-2.52, 

.66, 

4.00, 

11.16, 

20.47, 

29.77, 

39.07, 

48.37, 

Si -5.95, 

-3.47 , 

-.39, 

3.13, 

10.41, 

24.21, 

38.00, 

51.79, 

65.59, 

Si -5.95, 

-3.47, 

-.39, 

3.21, 

10.25, 

22.75, 

35.25, 

47.75, 

60.25, 

S. -5.94, 

-3.44, 

-.33, 

3.32, 

10.63, 

23.13, 

35.63, 

48.13, 

60.63, 

Si -5.91, 

-3.41, 

-.28, 

3.42, 

11.16, 

24.06, 

36.97, 

49.87, 

62.77, 

Si -5.90, 

-3.38, 

-.24, 

3.52, 

11.61, 

24.52, 

37.42, 

50.32, 

63.23, 

Si -5.85, 

-3.35, 

-.18, 

3.63, 

12.06, 

24.97, 

37.87, 

50.77, 

63.68, 

& —5 • 84 * 

-3.32, 

-.12, 

3.72, 

12.52, 

25.42, 

38.32, 

51.23, 

64.13, 

& -5 #81? 

-3.30, 

-.08, 

3.83, 

13.13, 

26.47, 

39.80, 

53.13, 

66.47, 

& -5 • 8 0 * 

-3.27, 

-.02, 

3.93, 

13.60, 

26.93, 

40.27, 

53.60, 

66.93, 

& -5 • 64 * 

-3.08, 

.32, 

4.86, 

15.63, 

28.13, 

40.63, 

53.13, 

65.63, 

& -5.51* 

-2.8b, 

.71, 

5.80, 

17.03, 

28.46, 

39.89, 

51.31, 

62.74, 

& -5.46» 

-2.68, 

1.12, 

7.67, 

18.78, 

29.89, 

41.00, 

52.11, 

63.22/ 

DATAC (CD304 ( 1 , 

J) *J=1» 

26) ,1=1,5)/ 





1 .0095, 

.0093, 

.0092, 

.0092, 

.0091 , 

.0091 , 

.0091 ♦ 

.0091, 

.0091 , 

1 .0094, 

.0096, 

.0102, 

.0115, 

.0147, 

.0192, 

.0237, 

.0273, 

.0295, 

1 .0318, 

.0332, 

.0345, 

.0357, 

.0365, 

.0319, 

.0240, 

.0193, 


2 .0049, 

.0049, 

.0049, 

.0049, 

.0049, 

.0049, 

.0049, 

.0049, 

,0049, 

2 .0049, 

.0049, 

.0054, 

.0080, 

.0120, 

.0167, 

.0207, 

.0237, 

. 0265, 

2 .0290, 

.0311 , 

.0324, 

.0333, 

.0337, 

.0339, 

.0314, 

.0284, 


3 .0049, 

.0049, 

.0049, 

.0049, 

.0049, 

.0049, 

.0049, 

.0049, 

.0049, 

3 .0049, 

.0049, 

.0059, 

.0094, 

.0152, 

.0213, 

.0263, 

.0292, 

.0317, 

3 .0336, 

. 0354 , 

.0367, 

.0380, 

.0393, 

• 0469 , 

.0549, 

.0629, 


4 .0084, 

.0083, 

.0083, 

.0080, 

.0075, 

.0074, 

.0073, 

.0073, 

.0075, 

4 .0078, 

• 008b , 

.0121, 

.0176, 

.0237, 

.0309, 

.0383, 

. 0459 , 

,0532, 

4 .0597, 

• 0662 , 

.0713, 

.0758, 

.0802, 

.0974, 

.1106, 

.1227, 


5 .0435, 

.0220, 

.0150, 

.0133, 

.0121, 

.0116, 

.0116, 

.0118, 

.0124, 

5 .0151, 

.0212, 

.0282, 

.0369, 

.0478, 

.0598, 

.0724, 

.0837, 

.0947, 

5 .1046, 

.1130, 

.1215, 

.1292, 

.1349, 

.1574, 

.1728, 

.1843/ 


DATA ( (CD306 ( I * 

J) , J = 1 * 

26) ,1 = 1 

,5) / 





1 .0095, 

.0094* 

.0094, 

.0093, 

.0093, 

.0093, 

.0093, 

.0093, 

.0092, 

1 .0092, 

.0096, 

•0108, 

.0159, 

.0218, 

.0277, 

.0336, 

.0390, 

.0431, 

1 .0465, 

.0478, 

.0488, 

.0488, 

.0482, 

• 0424 , 

.0353, 

.0280, 


2 .0044, 

•004b, 

.0045, 

.0045, 

.0045, 

.0045, 

.0045, 

.0045, 

.0045, 

2 .0050, 

.0060, 

.0092, 

.0136, 

.0179, 

.0222, 

.0270, 

.0319, 

.0350, 

2 .0378, 

.0407, 

.0420, 

.0426, 

.0432, 

.0433* 

.0397, 

. 0350 , 


3 .0046, 

.0046, 

.0046, 

.0046, 

• 0046, 

.0046, 

.0046, 

.0046, 

.0051 , 

3 .0058, 

.0097, 

.0138, 

.0180, 

.0221, 

.0262, 

.0308, 

.0361 , 

.0396, 

3 .0428, 

.0457, 

.0472, 

.0487, 

.0501, 

.0579, 

.0648, 

.0705, 


4 .0073, 

.0073, 

.0073, 

.0072, 

.0067, 

.0065, 

.0065, 

.0067, 

.0076, 
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4 .0110, .0171, 

.0231, 

.0292, 

.0353, 

.0414, 

.0478, 

.0559, .0641, 

4 .0706, .0760, 

.0815, 

.0869, 

.0909, 

.1080, 

.1109, 

.1142, 

5 .0292, .0207, 

.0161, 

•0144, 

.0137, 

.0134, 

.0139, 

.0145, .0166, 

5 .0192, .0280, 

.0408, 

•0536, 

.0664, 

.0799, 

.0991, 

.1170, .1271, 

5 .1373, .1472, 

.1555, 

.1639, 

.1722, 

.2071, 

.2243, 

.2266/ 

DATA( (CD309(I, J) ,J= 1,26) ,1=1, 

5)/ 




1 .0094, .0093, 

.0092, 

.0092, 

.0092, 

.0092, 

.0092, 

.0092, .0092, 

1 .0099, .012^, 

.0171, 

.0217, 

.0274, 

. 0331 , 

.0387, 

.0447, .0509, 

1 .0569, .0617, 

.0663, 

.0693, 

.0696, 

.0636, 

.0569, 

.0498, 

2 .0059, .0059, 

.0059, 

.0058, 

.0058, 

.0059, 

.0059, 

•0061, .0065, 

2 .0078, .0113, 

.0155, 

.0202, 

.0249, 

.0307, 

. 0365 , 

.0422, .0482, 

2 .0542, .0601, 

.0640, 

.0680, 

.0707, 

.0691, 

.0642, 

.0583, 

3 .0059, .0058, 

.0057, 

.0058, 

.0058, 

.0059, 

.0060, 

.0064, .0068, 

3 .0083, .0121, 

.0175, 

.0234, 

.0299, 

.0367, 

.0442, 

.0516, .0582, 

3 .0647, .0688, 

.0729, 

.0770, 

.0786, 

.0857, 

.0890, 

.0915, 

4 .0114, .0094, 

.0080, 

.0076, 

.0077, 

.0079, 

.0083, 

.0091, .0114, 

4 .0137, .0183, 

.0241, 

.0350, 

.0460, 

.0576, 

.0698, 

.0816, .0897, 

4 .0977, .1058, 

.1100, 

.1142, 

.1185, 

.1300, 

.1353, 

.1353, 

5 .0230, .0172, 

.0142, 

.0133, 

•0128, 

.0133, 

.0143, 

.0181, .0218, 

5 .0273, .0361, 

.0473, 

.0620, 

.0773, 

.0934, 

.1089, 

.1222, .1354, 

5 .1462, .1550, 

.1637, 

.1683, 

.1699, 

.1772, 

.1835, 

.1894/ 

DATA ( (CD312U*. 

J ) f J-l * 26) 1 1 = 1 1 

5)/ 




1 .0099, .0099, 

.0098, 

.0098, 

.0098, 

.0098, 

.0097, 

.0097, .0098, 

1 .0114, .0182, 

.0261, 

.0352, 

.0448, 

• 0547 , 

.0649, 

.0746, .0829, 

1 .0908, .0955, 

.1001, 

.1011, 

.1009, 

.0973, 

.0872, 

.0736, 

2 .0061, .0060, 

.0060, 

.0060, 

.0060, 

.0060, 

.0060, 

.0060, .0066, 

2 .0095, .0156, 

.0235, 

.0327, 

.0429, 

.0526, 

.0619, 

.0707, .0784, 

2 .0851, .0919, 

.0968, 

.1013, 

.1046, 

.0996, 

.0906, 

.0793, 

3 .0061, .0061, 

.0061, 

.0060, 

.0060, 

.0060, 

.0061, 

.0073, .0098, 

3 .0144, .0200, 

.0284, 

.0375, 

.0473, 

.0573, 

.0672, 

.0766, .0857, 

3 .0936, .0996, 

.1057, 

.1098, 

.1135, 

.1135, 

.1110, 

.1082, 

4 .0125, .0108, 

.0096, 

.0097, 

.0100, 

.0101 , 

.0104, 

.0117, .0168, 

4 .0226, .0320, 

.0423, 

.0525, 

.0647, 

.0780, 

.0903, 

.1011, .1109, 

4 .1193, .1278, 

.1349, 

. 1410, 

.1471, 

• 1646 , 

.1718, 

.1749, 

5 .0204, .0180, 

.0169, 

. 0 166 , 

.0168, 

.0170, 

.0185, 

.0242, .0365, 

5 .0528, .0724, 

.0906, 

.1070, 

.1213, 

.1351, 

.1487, 

.1622, .1753, 

5 .1879, .2004, 

.2130, 

.2226, 

.2309, 

.2661, 

.2646, 

.2631/ 

DATA ( ( CD31 5 ( I » 

J) , J = l* 

26) * 1 = 1 1 

>5)/ 




1 .0084, . 0088 , 

.0089, 

.0090, 

.0091, 

.0091, 

.0091, 

.0094, .0116, 

1 .0206, .0319, 

.0438, 

.0563, 

.0688, 

. 0803, 

.0912, 

.1016, .1117, 

1 .1209, .1292, 

.1353, 

.1397, 

.1437, 

. 1382, 

.1223, 

.1063, 

2 .0078, .0078, 

.0078, 

.0078, 

.0082, 

.0086, 

.0093, 

.0104, ,0141, 

2 .0234, .0346, 

.0458, 

.0577, 

.0696, 

.0800, 

.0903, 

.0992, .1082, 

2 .1172, .1234, 

.1291, 

. 1 34 8 , 

.1390, 

.1393, 

.1330, 

.1236, 

3 .0091, .0082, 

.0082, 

.0083, 

.0089, 

.0092, 

.0099, 

.0115, .0173, 

3 .0276, .0394, 

.0511, 

.0630, 

.0749, 

.0053, 

.0953, 

.1053, .1152, 

3 .1240, .1310, 

.1381, 

.1451, 

.1470, 

.1518, 

.1521, 

.1521, 

4 .0090, .011^, 

.0128, 

.0134, 

.0140, 

.0149, 

.0169, 

.0204, .0275, 

4 .0422, .0581, 

.0717, 

. 0835 , 

.0962, 

.1092, 

.1218, 

.1341, .1444, 

4 .1533, .1623, 

.1688, 

.1743, 

.1799, 

.1975, 

.2035, 

.2095, 

5 .0235, . 0206 , 

.0203, 

.0207, 

.0215, 

.0228, 

.0262, 

.0384, .0564, 

5 .0782, .0993, 

.1199, 

.1383, 

.1548, 

. 1699, 

.1836, 

.1974, .2101, 

5 .2215, .2330, 

.2425, 

.2491, 

.2556, 

.2677, 

.2715, 

.2753/ 

DAT A ( (CD318 (I, 

J) » J=1 » 

26) ,1=1,5)/ 




1 .0106, .0136, 

.0151, 

.0158, 

.0166, 

.0169, 

.0173, 

.0186, .0228, 



1 

1 

2 

2 

2 

3 

3 

3 

4 
4 

4 

5 
5 
5 


.0337* 

.1340* 

. 0082 * 

.0386* 

.1418* 

.0096* 

.0431* 

.1498* 

.0169* 

.0713* 

.1807* 

.0282* 

. 1122 * 

.2863* 


1 

1 

1 

2 

2 

2 

3 

3 

3 

4 
4 

4 

5 
5 
5 


.0486* .0633* .0765* .0887* 
.1401* .1448* .1495* .1520* 
•0081’ .0080* .0080* .0081* 
.0518* .0693* .0851, .0994* 
.1468* .1503* .1537* .1571* 
.0096* .0097* .0097* .0097* 
.0579* .0752* .0912* .1049, 
.1563* .1617, .1670* .1723* 
.0176* .0179* .0180, .0191* 
.0877, .1044, .1181, .1305, 
.1879, .1950* .2007, .2058* 
.0331* .0355* .0367, .0392, 
.1365, .1619, .1860, .2085, 
.£ooj* .2959, .3022* .3083* .3118* 
DATA ( ( CD321 ( I ♦ J) » J=1 *26) ,1=1*5)/ 

.0126* .0125* .0125* .0126* 
.0565* .0721* .0879, .1038* 
.1691* .1764, .1822, .1836, 
.0094, .0094, .0094, .0094* 
.0601* .0781, .0965, .1123, 
.1779, .1857, .1936, .1956, 
.0113* .0113, .0114, .0114* 
.0703, .0874, .1044, .1191* 
.1961* .2030, .2099, .2168* 
.0213* .0208* .0211* .0231, 
.1046* .1214, .1382* .1534, 
.2274* .2362, .2450, .2538* 
.0387, .0388, ,0400* .0448* 
.1548* .1750* .1969, .2210* 
.3069, .3071, .3072, .3074, 


.0119, 
.0411, 
.1618* 
,0095* 
. 0454 * 
.1700* 
. 0111 * 
.0542* 
. 1843* 
.0269* 
.0878* 
. 2186 * 
.0439* 
.1344* 
.3068* 


.1008, 

.1519, 

.0083* 

. 1112 * 

.1606, 

. 0102 , 

.1184, 

.1752, 

.0205, 

.1430, 

.2196, 

.0419, 

.2298, 

.3252, 

.0133, 
.1179, 
.1886, 
. 0101 * 
.1251, 
.2014, 
. 0120 * 
.1322* 
.2207, 
.0264, 
.1686, 
.2649, 
. 0549 , 
.2450, 
.3083, 


.1129 

.1490 

.0090 

.1228 

.1577 

.0117 

.1263 

.1765 

.0261 

.1554 

.2280 

.0489 

.2470 

.3386 

.0148 

.1304 

.1894 

.0121 

.1378 

.2014 

.0174 

.1452 

.2219 

.0368 

.1838 

.2663 

.0735 

.2664 

.3092 


.1203, .1272, 
.1449, 

.0148, .0267, 


.1316, 

.1533, 

.0195, 

.1341, 

.1779, 

.0411, 

.1663, 

.2365, 

. 065 1 , 
.2642, 
.3520/ 

.0178, 

• 1428 , 
.1903, 
. 0221 , 
.1505, 
.2014, 
.0273, 
.1583, 
.2231, 
.0533, 
.1990, 
.2676, 
.0921, 
.2843, 
.3102/ 


.1367, 

•0313, 

.1420, 

.0562, 

.1735, 

.0887, 

.2767, 


.3068, .3069, .30/1* .JU/c, .ovif, •-“I*’ 

DAT A ( XMI ( J) , J=l*26) /.3, .5, . 6 * .65* .7, .725, .75* .77 , 

.8. .825, .85* .875* .9, .925* .95* .975* 1 .0 ♦ 1.025,1.05*1.075* 
1 .1,1. 125*1. 15*1.3*1.45, 1.6/ 2/ 

ATA(CLI ( J) ,J=l,9)/-.4*-.2,0.0» .2*.^* .6,.8, 1.0,1.2/ 

AT A (ALP I ( J) »J=1, 7) /-4. 0,-2. 0,0. 0,2. 0,4. 0,6. 0,8.0/ 

... . A i « . . ■ . _ c \ /ft ft. .5. 


& 

u 

DATA 

DAT A l ftur i t vj j * v- * * » / ' — r • u 

DATA (CL 1 1 (J)»J=l,5)/0.0,.2,.4,.6,.8/ 
IORDER(l)=IORDER(2)=l 
IPT (1) = -1 

(IKEY ,EQ. 2) GO TO 1000 
GO TO 9 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


(TR 

(TR 

(TR 

(TR 

(TR 

(TR 

(TR 

(TR 


.04) 


.LT. 

.GE. 

• GE. 

.GE. 

.GE. 

.GE. 

.GE. 

.GE. 

CALL IBI (7 , ALPI *26 
CL=CLFT04 
60 TO 400 
CALL IBI <7 


• 04 

• AND. 

TR 

.LT. .06) 

GO 

TO 

1 

.06 

• AND. 

TR 

.LT. .09) 

GO 

TO 

2 

.09 

.AND. 

TR 

.LT. .12) 

GO 

TO 

3 

.12 

• AND. 

TR 

.LT. .15) 

GO 

TO 

4 

.15 

• AND. 

TR 

.LT. .18) 

GO 

TO 

5 

• 18 

.AND. 

TR 

.LT. .21) 

GO 

TO 

6 


.0269, 

.1545, 

.0320, 

.1622, 

.0383, 

.1713, 

.0705, 

.2098, 

.1132, 

.3022* 


.21) GO 


, XMI , 7 , CL304 , I ORDER* IPT, AA, XM»CLFT0 4* I ERR) 


,ALPI»26*XMI,7,CL304,IORDER*IPT»AA,XM*CLFT04,IERR) 

CALL ( lBr 1 (7,ALPI,26,XMI,7,CL306,IORDER,IPT,AA,XM,CLFT06,IERR) 

CL=CLFT04 ♦ (CLFT06-CLFT04) <M ( TR-. 04) / < . 06-. 04) ) 

GO TO 400 
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2 CALL IBI (7,ALPI,26*XMI,7*CL306»IORDER.IPT*AA,XM*CLFT06»IERR) 

CALL ^ IBl” (7 * ALP I *26»XMI»7»CL309* I ORDER » IPT»AA»XM»CLFT09»IERR) 
CL=CLFT06 ♦ (CLFT09 - CLFT06) *< (TR-.06) / ( .09-. 06) ) 

3 CALL°IBI° (7,ALPI*26*XMI »7,CL309,IORDER» IPT* AA,XM»CLFT09*IERR) 
IPT ( 1 ) =- 1 

CALL IBI (7,ALPI»26,XMIf7,CL3I2tI0RDER.IPT*AA,XH*CLFT12»IERR) 
CL=CLFT09*(CLFT12-CLFT09)«( ( TR-. 09) / ( . 12-. 09 ) ) 

4 CALL IBI (7*ALPI»26,XMI*7»CL312»I0RDER*IPT*AA,XM*CLFT12»IERR) 
CALL IBI (7*ALPI*26»XMI,7»CL315» IORDER* IPT»AA»XM»CLFT15» IERR) 

CL=CLFT12 ♦ (CLFT15-CLFT12)«( (TR-. 12) / ( . 15-. 12) ) 

5 CALL°IBI° (7* ALPI,26,XMI,7,CL315, IORDER* IPT, AA*XM»CLFT15* IERR) 

CALL < lBl’(7»ALPI*26»XMI,7»CL318»I0RDER*lPT*AA,XM»CLFT18»IERR> 
CL=CLFT15*(CLFT18-CLFT15)#( (TR-. 15) / ( . 18-. 15) ) 

6 CALL°IBI° (7*ALPIt26fXHI # 7f CL318*I0RDER#IPT*AA*XM»CLFT1B*IERR) 

CALL IBI (7* ALPI *26* XMI *7* CL321 » IORDER » IPT » AA* XM » CLFT21 * IERR) 
CL S CLFT18+(CLFT21-CLFT18)*( ( TR-. 18 ) / < . 21-. 18 > ) 

7 CALL°IBI (7*ALPI*26»XMI»7*CL321*I0RDER»IPT*AA*XM»CLFT21f IERR) 

CL=CLFT21 
GO TO 400 
1000 CONTINUE 

IPT ( 1 ) =-l 

IF (TR .LT. .04) GO TO 90 

IF : (TR .GE. *04 .AND. TR .LT. *06) GO TO 10 

IF (TR .GE. *06 .AND. TR .LT. .09) GO TO 20 

IF (TR .GE. *09 .AND. TR .LT. .12) GO TO 30 

IF (TR .GE. .12 .AND. TR .LT. .15) GO TO 40 

IF (TR .GE. .15 .AND. TR .LT. .18) GO TO 50 

IF (TR .GE. *18 .AND. TR .LT. .21) GO TO 60 

IF (TR .GE. .21) GO TO 70 

90 CALL IBI (26*XMI*9*CLI*26,ALP304,IORDER, IPT, XM*CL.AA04, IERR) 
AA=AA04 

10 CALL°I8I (26»XMI*9,CLI*26*ALP304»IORDER*IPT*XM,CL*AA04*IERR) 

CALL ^ IBI (26*XMI*9*CLI*26,ALP306*IORDER»IPT*XM,CL*AA06,IERR) 
AA=AA04 ♦ (AA06-AA04)*< (TR-.04)/ (.06-.04) ) 

GO TO 400 

20 CALL IBI (26,XMI,9,CLI*26,ALP306,IOROER, IPT, XM,CL»AA06, IERR) 

CALL ^ 1 91 (26*XMI ,9*CLI *26* ALP309 ,IORDER*lPT*XM,CL»AA 09*1 ERR) 

AA=AA06 ♦ (AA09 - AA06) * ( ( TR 06 ) / ( . 09-. 06) ) 

30 CALL°IBI (26*XMI,9*CLI*26,ALP309,IORDER,IPT,XM,CL*AA09,IERR) 
CALL *161 (26*XMI*9*CLI *26*ALP312* IORDER* IPT*XM,CL» AA12* IERR) 

AA=AA09* (AA12-AA09)*( (TR-.09) / ( . 12-.09) ) 
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40 


CALL IBI (26*XMI*9»CLI*26»ALP312* IORDER* IPT ♦ XM * CL* AA 12 * IERR) 

CALL IBI ( 26* XMI *9*CLI *26* ALP315* IORDER* IPT* XM*CL» AA15* IERR) 
AA=AAl2+(AAlb-AA12)*( (TR-.12)/(.15-.I2) ) 

60 TO 400 

50 CALL IBI (26*XMI »9*CLI*26»ALP315» lORDERt IPT*XM»CL»AAI5» IERR) 
IPT (1) = -1 

CALL IBI <26»XMI*9*CLI*26*ALP318,I0RDER»IPT,XM,CL»AA18*IERR> 
AA=AA15+ (AAlfa“AA15)*( (TR-. 15) / ( . 18-. 15 ) ) 


GO TO 400 

60 CALL IBI <26»XMI *9*CLI *26* ALP318 » IORDER* IPT* XM*CL» AA18* IERR) 
IPT (1) = -1 

CALL IBI <26*XMI*9*CLI*26iALP321*I0RDER*IPT*XM,CL*AA21,IERR) 
AA=AA18MAA21-AA18)*( <TR-.18)/< .21-. 18) ) 


60 TO 400 

70 CALL IBI ( 26 * XMI *9 *CLI *26 » ALP321 » IORDER* IPT * XM *CL * A A21 » I ERR) 
AA=AA21 
400 CONTINUE 


IPT 

(1) 

=-l 






IF 

(TR 

.LT. .04) 

GO TO 

i 91 




IF 

(TR 

.GE. .04 

• AND. 

TR .LT. .06) 

GO 

TO 

11 

IF 

(TR 

.GE. .06 

• AND. 

TR .LT. .09) 

GO 

TO 

21 

IF 

(TR 

.GE. .09 

• AND. 

TR .LT. .12) 

GO 

TO 

31 

IF 

(TR 

.GE. .12 

.AND. 

TR .LT. .15) 

GO 

TO 

41 

IF 

(TR 

. GE * .15 

• AND. 

TR .LT. .18) 

GO 

TO 

51 

IF 

(TR 

.GE. .18 

.AND. 

TR .LT. .21) 

GO 

TO 

61 


IF (TR .GE. .21) GO TO 71 

91 CALL I B I ( 5 * CL 1 1 *26 * XM I * 5 * CD304* IORDER * IPT * CL* XM* CDRG04 » IERR ) 


CO=CDRG04 
WRITE (6.201> TR 

201 FORMAT (*0THICKNESS RAT IO=* ♦ F5 • 3 . * IS OUT OF RANGE. 
THE VALUES FOR T/C=.04 have been RETURNED*) 


11 CALL IBI (5,CLII.26.XMI.5,CD304,IORDER,IPT.CL.XM»CDRG04,IERR) 
IPT ( 1 ) =-l 

CALL IBI (5*CLII*26*XMI*5,CD306»IORDER,IPT*CL»XM»CDRG06*IERR) 
CD=CDRG04 ♦ (CDRG06-CDRG04) * ( ( TR- . 04 ) / ( . 06- . 04 ) ) 

GO TO 250 

21 CALL IBI (5* CL 1 1 * 26» XM I * 5 * CD30 6 » I OROER * I PT » CL » XM t CDRGO 6 * I ERR ) 

IPT (1)=-1 % 

CALL IBI (5, CLI I » 26* XMI . 5. CD309* IOROER » IPT » CL. XM* CDRG09. I ERR ) 
C0=CDRG06 «• (CDRG09 - CDRG06 ) * < ( TR- . 06 ) / { . 09- . 06 ) ) 

GO TO 250 

31 CALL IBI (5,CLII,26,XMI,5,CD309,IORDER,IPT*CL.XM»CDRG09,IERR) 
IPT (1)=-1 

CALL IBI ( 5, CLI I * 26* XMI » 5* C0312* IOROER * I PT * CL* XM*C0RG1 2* IERR) 
CD=CDRG09* (CORG12-CDRG09) * ( ( TR- . 09 ) / ( . 1 2- . 09 ) ) 


GO TO 250 

41 CALL IBI (5*CLII*26*XMI*5,C0312» IORDER » I PT » CL » XM » CORGI ? , IERR) 
IPT ( 1 ) =— 1 

CALL IBI (5.CLI I * 26 *XMI *5* CD315* IORDER » IPT »CL» XM* CDRG15* IERR) 
CD=CDRG12 ♦ (CDRG15-CDRG12)*( (TR-.12)/(.15-.12) ) 

GO TO 250 

51 CALL IBI (5*CLI I*26*XMl *5»CD315» IORDER* IPT*CL»XM*CDRG15» IERR) 
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noonooooooooooooooono 


CALL < lBr 1 {5,CLII,26*XMI,5,CD310»IORDER,IPTtCL*XMfCDR618,IERR) 

CD=CDRG15* (CORGI 8-CDRG15) * ( (TR-.15)/(.18“. 15) ) 

61 CALL°IBI° ( 5, CL 1 1 ♦ 26* XMI , 5* CD318 , I ORDER * IPT *CL» XM.CDRG1 8 , IERR ) 

CALL* I B I (5, CL 1 1 » 26* XMI , 5, CD321 » IORDER » IPT »CL* XM*CDRG2 1 » I ERR ) 
CD=CDRGlfU (C0RG21-CDRG18) <M (TR-. 18) / < .21-. IB) ) 


7 

20 A 


1 CALL°IBI° (5tCLII«26tXMlt5*CD32l*l0RDERt IPT *CL, XM.CDRG21 , IERR) 
CD=C0RG2 1 

IF (TR .GT. • 21 ) wR ITE ( 6* 20A) TR 

FORMAT (*0THICKNESS R AT IO=* , FS . 3 ♦ * IS OUT OF RANGE. 

&*/* THE VALUES FOR T/C=.21 HAVE BEEN RETURNED.*) 


250 I F (CL .GT. .8) GO TO 251 

251 CALL COMPUT ( 0 » XM » ALT » COR » TR » AA » COT » CL, CD » CLDES ) 
CD=CDT 

RETURN 

END 


SUBROUTINE AER04 (XLD,CL»CD*XM,AA,IKEY*TR» CLDES « ALT * COR , D ) 


THIS SUBROUTINE 
CHARACTERISTICS 


IS DESIGNED TO COMPUTE THE AIRFOIL 

FOR A 16 SERIES AIRFOIL WITH A GIVEN CAMBER. 


this subroutine relates cl*cd,cl/cd*mach»t/c» and alpha. 
IT REPRESENTS THE DATA OF a 16-4XX airfoil. 


XM=RELATIVE MACH NO. AT BLADE ELEMENT 

AA=ANGLE of attack in degrees 

IKEY 1 ! CL=CL (MACH* ALPHA.T/C) 

: CD=CD(MACH*CL*T/C) 

JXLD=CL/CD 

IKEY2J ALPHA=ALPHA(MACH,CL,T/C) 

: CD=CD(MACH*CL»T/C) 

:XLD=CL/CD 

TR=T/C 


& 

5. 

6 . 
& 
& 
& 

1 

1 


HMENSION I0R0ER(2) *IPT(2) , ALP404 ( 26 , 9 ) , ALP406 (26.9 ) , 
ALP409(26,9) *ALP412(26,9) ,ALP415(26*9) , ALP41H (26,9) » 

ALP421 (26*9) *CLI ( 9) , XM I ( 26 ) * ALP I ( 7 ) ♦ CL4 04 ( 7 * 26) . 

CL4 06 (7.26) *CL409(7.26) »CL4l2(7,26) »CL415(7.26) . 

CL4 18(7*26) »CL421 (7*26) »CD404(5»26) *CD406(5»26) * 
CD409 (5,26) *CD412(5.26) ,CD415(5,26) ,CD418 (5,26) » 
CD421 (5.26) *CLII (5) 

)ATA( (CL404(I»J) *J=1*26) ,1=1*4)/ 

-.107* -.122* -.130* -.132* -.131* -.129. -.126* 
-.116* -.108* -.095* -.083* -.061* -.058* -.086* 


-.124, 

-.193, 


-. 120 , 

-.245, 
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1 

-.219* 

-.194, -.173, 

-.164, 

-.182, 

-.262, 

-.277, 

-.258, 


2 

.123, 

.129, .140, 

.150, 

.160, 

.165, 

.171, 

.177, 

.182, 

2 

.196, 

.211* .225, 

.239, 

.234, 

.208, 

.145, 

.035, 

.002, 

2 

.033, 

.075, .108, 

.113, 

.094, 

— « 035, 

-.115, 

-.123, 


3 

. 354 , 

.373, .392, 

.404, 

.416, 

.421, 

.427, 

.434, 

.445, 

3 

.456 , 

.460, .479, 

.489, 

.469, 

.410, 

.338, 

.286, 

.263, 

3 

.289, 

.320, .346, 

.361, 

.335, 

.154, 

.023, 

-.015, 


4 

.571, 

.601, .621, 

.638, 

.655, 

.663, 

.672, 

.681, 

.691, 

4 

.701, 

.711* .723, 

.717, 

.670, 

.620, 

. 57 0 , 

.520, 

.492, 

4 

.519, 

.558, .597, 

.619, 

.595, 

.305, 

.128, 

.094/ 


DATA( <C|_404(I*J) »J=1» 

26) ,1=5,7)/ 





5 

.713, 

.757, .793, 

.821, 

.849, 

.868, 

.888, 

.908, 

.927, 

5 

.942, 

.940, .923, 

.901, 

.869, 

.825, 

.775, 

.730, 

.717, 

5 

.747, 

.790, .821, 

.828, 

.786, 

.478, 

.272, 

.209, 


6 

.874* 

.933, .980, 

1.006, 

1.042, 

1.060, 

1.077, 

1.089, 

1.097, 

6 

1.092, 

1.073, 1.052, 

1.027, 

.998, 

.969, 

.928, 

.882, 

.868, 

6 

.891, 

.937, .972, 

.978, 

.938, 

.618, 

.395, 

.314, 


7 

1.019, 

1.074, 1.123, 

1.152, 

1.193, 

1.213, 

1.222, 

1,215, 

1.204, 

7 

1.183, 

1.161, 1.135, 

1.108, 

1.081, 

1.0 54 , 

1.030, 

1.006, 

.995, 

7 

1.020, 

1.059, 1.098, 

1.108, 

1.075, 

.761, 

.534, 

.425/ 


DATA( ( CL406 ( I » J) *J=1* 

26) ,1=1,4)/ 





1 

-.142, 

-.126, -.117, 

-.110, 

-.104, 

-.100, 

-.097, 

-.094, 

-.090, 

1 

-.086, 

-.081, -.077, 

-.113, 

— . 207 , 

-.317, 

-.426, 

-.484, 

-.452, 

1 

-.398, 

—.343, —.313, 

-.323, 

-.337, 

-.398, 

-.421, 

-.433, 


2 

.117, 

.128, .130, 

.144, 

.154, 

.159, 

.165, 

.171, 

.176, 

2 

.182, 

.178, .149, 

.086, 

.017, 

-.052, 

-.121, 

-.137, 

-.112, 

2 

-.071, 

-.032, -.012, 

-.030, 

-.056, 

-.150, 

-.161, 

-.161, 


3 

.349, 

.368, .388, 

.405, 

.423, 

.432, 

.441, 

.449, 

.461 , 

3 

• 473 , 

.477, .446, 

.381, 

.317, 

.252, 

. 184, 

.157, 

.188, 

3 

.231, 

.271, .281, 

.257, 

.227, 

.072, 

-.014, 

-.024, 


4 

.549, 

.596, .627, 

.645, 

. 663 , 

.674, 

.687, 

.699, 

.710, 

4 

.708, 

.685, .635, 

.581, 

.527, 

.473, 

.425, 

.398, 

.419, 

4 

.461 , 

.501, .515, 

.479, 

. 43a , 

.219, 

.112, 

.091/ 


DAT A ( (CL406 ( I » J) »J=i, 

26) ,1=5 

,7)/ 





5 

.693, 

.740, .785, 

.812, 

.841, 

.859, 

.879, 

.900, 

.912, 

5 

.896, 

.860, .816, 

.772, 

.727, 

.674, 

.621, 

.595, 

.624, 

5 

.669, 

.714, .726, 

.681, 

.625, 

.361, 

.236, 

.199, 


6 

.856, 

.905* .944, 

.970, 

1.002, 

1.016, 

1.019, 

1.005, 

.987, 

6 

.962, 

.935, .908, 

.870, 

.830, 

.790, 

.746, 

.735, 

.770, 

6 

.806, 

.842, .862, 

.830, 

.771, 

.502, 

.375, 

.305, 


7 

1 .010, 

1.064, 1.119, 

1.157, 

1.195, 

1.196, 

1.175, 

1.143, 

1.111, 

7 

1.079, 

1.047, 1.016, 

.984, 

.952, 

.920, 

.882, 

.858, 

.887, 

7 

.929, 

.969, .987, 

.958, 

.913, 

.659, 

.508, 

.423/ 


DAT A ( (CL409 ( I ♦ J) ,J=1» 

26) ,1 = 1 

,4)/ 





1 

-.079* 

-.067, -.044, 

-.032, 

-.018, 

-. 011 , 

-.004, 

.004, 

.011, 

1 

.016, 

.015, -.019, 

-.096, 

-.212, 

-.421, 

-.457, 

-.425, 

-.345, 

1 

-.276, 

-.271, -.276, 

-.281, 

-.265, 

-.306, 

-.309, 

-.303, 


2 

.125, 

.138, .153, 

.160, 

.173, 

.179, 

.185, 

,191, 

.198, 

2 

.209, 

.174, .099, 

-.006, 

-.111, 

-.207, 

-.217, 

-.169, 

-.107, 

2 

-.060, 

-.056, -.070, 

-.083, 

-.094, 

-.130, 

-.148, 

-.164, 


3 

.329, 

.336* .353, 

.365, 

.381, 

.389, 

.397, 

.406, 

.415, 

3 

.415, 

.400, .324, 

.210, 

.083, 

.011, 

. 010 , 

.062, 

.119, 

3 

.160, 

.161, .149, 

.135, 

.121, 

.043, 

-.015, 

-.028, 


4 

.520, 

•544, .560, 

.585, 

.607, 

.620, 

.634, 

.646, 

.652, 

4 

.632, 

.583, .493, 

.393, 

.293, 

.225, 

.219, 

.270, 

.329, 
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4 

. 367 * 

.371, 

.353, 

.331, 

.310, 

.195, 

.124, 

.082/ 


DATA( ( CL.409 ( I ♦ 

J) * J=l» 

26) ,1=5 

,7) / 





5 

• 666 » 

.709, 

.750, 

.776, 

.803, 

.815, 

.828, 

.836, 

.818, 

5 

.767* 

.687, 

.606, 

.526, 

.445, 

.387, 

.387, 

.439, 

.497, 

5 

• 542 » 

.537, 

.515, 

.491, 

.467, 

.338, 

.240, 

.196, 


6 

• 798 * 

. 867 , 

.917, 

.943, 

.973, 

.988, 

.992, 

.974, 

.927, 

6 

. 862 * 

.796, 

.731, 

.665, 

.600, 

.551, 

.559, 

.611, 

.666, 

6 

.708* 

.703, 

.681, 

.658, 

.634, 

.499, 

.385, 

.300, 


7 

.947, 

1.006, 

1.062, 

1.094, 

1.110, 

1.099, 

1.072, 

1.042, 

.988, 

7 

• 930, 

.871, 

.813, 

.755, 

.696, 

.650, 

.657, 

.712, 

.772, 

7 

.813, 

.800, 

.779, 

.758, 

.737, 

.613, 

.501, 

.414/ 


DATAt (C|_4 12 ( I » 

J) , J=l» 

26) ,1=1 

,4) / 





1 

-•053, 

-. 046, 

-.053, 

-.057, 

-.061, 

- • 065 , 

-.075, 

-.085, 

-.096, 

1 

-.179, 

-.274, 

-.370, 

-.465, 

-.518, 

-.498, 

-.419, 

-.316, 

-.270, 

1 

-.271, 

-.274, 

-.277, 

-.279, 

-.282, 

-.297, 

-.313, 

-.328, 


2 

.115, 

.140, 

.154, 

.164, 

.178, 

.185, 

.190, 

.186, 

.139, 

2 

.069, 

-.023, 

-.145, 

-.298, 

-.374, 

-.341 , 

-.245, 

-.153, 

-.129, 

2 

-.123, 

-.12 4 » 

-.128, 

-.132, 

-.136, 

-.159, 

-.187* 

-.197, 


3 

.285, 

.306, 

.318, 

.324, 

.333, 

.341, 

.349, 

. 352 , 

.336, 

3 

.282* 

.170, 

.043, 

-.078, 

-.124, 

-.091, 

-.009, 

.062, 

.091, 

3 

.088, 

.077, 

.065, 

. 054 , 

.047, 

.007, 

-.027, 

- • 053 , 


4 

.469, 

.495, 

.514, 

.529, 

.544 , 

.552, 

.555, 

.540, 

.490, 

4 

.410, 

.309, 

.199, 

.100, 

.061, 

.098, 

.172, 

.246, 

.275, 

4 

. 266 , 

.253, 

.241, 

.229, 

.217, 

.153, 

.106, 

.063/ 


DAT A { (CL412 ( I * 

J) , J=1 , 

26) , 1=5 

,7)/ 





5 

.607, 

• 649 , 

.681, 

.705, 

.729, 

.734, 

.716, 

.638, 

.561, 

5 

.484, 

• 406 , 

.329, 

.260, 

.224, 

.263, 

.339, 

.408, 

.436, 

5 

.423, 

.410, 

.397, 

.384, 

.371, 

.296, 

.234, 

.175, 


6 

.738, 

.802, 

.847, 

.877, 

.909, 

.890, 

.854, 

.792, 

.716, 

6 

.639, 

.563, 

.487, 

.411, 

.386, 

.424, 

.492* 

.561, 

.595, 

6 

.589, 

.574, 

.558, 

.542, 

. 526 , 

.428, 

.356, 

.286, 


7 

.862* 

.918, 

.970, 

1.008, 

1 . 030 , 

1.002, 

.958, 

.888, 

.811, 

7 

.735, 

.659, 

.582, 

.506, 

.469, 

.507, 

.577, 

.649, 

.678, 

7 

.669, 

• 653 , 

.638, 

.622, 

.607, 

.525, 

.456, 

.394/ 


DATA ( ( CL415 ( I * 

pH 

II 

26) , 1=1 

,4)/ 





1 

-.070, 

-.073, 

-.082, 

-.088, 

-.094, 

-.098, 

-.111, 

-.157, 

— .226 , 

1 

-.322, 

-.426* 

-.553, 

-.570, 

-.532, 

-.452, 

-.364, 

-.305, 

-.299, 

1 

-.299, 

-.299, 

-.299, 

-.299, 

-.299, 

-.300, 

-.303, 

-.305, 


2 

. 073, 

.003, 

.097, 

.104, 

.110, 

.110, 

.105, 

.087, 

.034, 

2 

— . 062, 

-.194, 

-.346, 

-.403, 

-.389, 

- .309 , 

-.227, 

-.199, 

-. 194, 

2 

-. 194, 

-.194, 

-.193, 

-.193, 

-.193, 

-.194, 

-.206, 

-.218, 


3 

.240, 

• 246, 

.254, 

.259, 

.263, 

.265, 

.266 , 

.242, 

.184, 

3 

.092, 

- . 040 , 

-.196, 

-.263, 

-.228, 

-.122, 

-.033, 

-.012, 

-.014, 

3 

-.016, 

-.017, 

-.019, 

-.021, 

-.023, 

-.033, 

— . 040 , 

-.041, 


4 

.422, 

• 438 , 

.453, 

.461, 

.467, 

.473, 

.452, 

.412, 

.345, 

4 

.267, 

.127, 

-.018, 

-.063, 

— .014, 

.082, 

.150, 

.178, 

.174, 

4 

.168, 

.163, 

.157, 

.151, 

.145, 

.115, 

.089, 

.069/ 


DATAt (CL415 ( I * 

J ) , J= 1 , 

26) , 1=5 

,7) / 





5 

.557, 

.585, 

.607, 

.621, 

.635, 

.630, 

.600, 

.531, 

.430, 

5 

.329, 

.228, 

.141, 

.108, 

.151, 

.240, 

.321, 

.350, 

.341, 

5 

.332, 

.323, 

.314, 

.305, 

.297, 

.248, 

.210, 

.180, 


6 

. 67 1 , 

.711, 

.746, 

.771, 

.791, 

.778, 

.741, 

.667 , 

.575, 

6 

.466, 

.356, 

.253, 

.194, 

.237, 

.332, 

.424, 

.455, 

.451, 

6 

.442, 

.433, 

.424, 

.415, 

.405* 

.353* 

.321, 

.294, 


7 

.769, 

.809, 

.847, 

.882, 

.910, 

.898, 

.857, 

.770, 

.655, 



7 

* 539 » 

• 423 , 

.315, 

.269, 

.310, 

.401, 

.484, 

.514, 

.507, 

7 

• 500 ♦ 

.491, 

.481, 

.471, 

.463, 

.423, 

.388, 

.363/ 


DAT A ( ( C|_4 1 8 ( I * J ) * J= 1 ♦ 26) » I = 1 » 

4)/ 



-.399, 

-.495, 

1 

-.098* 

-.101, 

-.120, 

-.129, 

-.149, -.205, -.302, 

1 

-•591, 

-.684, 

-.745, 

-.727, 

—.636, —.516, —.405, 

-.378, 

-.377, 

1 

-.378, 

-.379, 

-.379, 

-.380, 

-.380, -.383, -.373, 

-.361, 

-.310, 

2 

• 056 , 

.054, 

.054, 

.059, 

.060, 

.005, -.087, 

-.199, 

2 

-.421, 

-.521, 

-.572, 

-.531, 

-.433, -.309, -.247, 

-.246, 

-.246, 

2 

-.246, 

-.246, 

-.246, 

- . 246 , 

-.246, -.247, -.248, 

-.249, 

-.126, 

3 

.204, 

.213, 

.221, 

.226, 

.225, 

.185, 

.091, 

-.018, 

3 

-.235, 

-.344, 

-.390, 

-.358, 

-.236, -.116, ■ 

-.082, 

-.083, 

-.084, 

3 

-.085, 

-.086, 

-.088, 

-.089, 

-.090, -.097, -.096, 

-.095, 

.033, 

4 

.378, 

.387, 

.398, 

.404, 

.397, 

.334, 

.250, 

• 146, 

4 

-.081, 

-.171, 

-.211, 

-.174, 

-.039, 

.075, 

.097, 

.099, 

• 095, 

4 

.090, 

.085, 

.080, 

.076, 

.072, 

.052, 

.036, 

.023/ 


DATA { ( CL418 ( I » J) » J = 1 * 26) » 1=5 * 

7)/ 



.272, 

.179, 

5 

..526, 

.534* 

.548, 

.556, 

.539, 

.457, 

• 364 , 

5 

.087, 

.004, 

-.037 , 

.008, 

.132, 

.259, 

.278, 

.276, 

.269, 

5 

.261 , 

.253, 

.245, 

.237, 

.230, 

.188. 

.159, 

.131, 

.295, 

6 

.624, 

.649, 

.689, 

.721, 

.663, 

.573, 

.490, 

.388, 

6 

.202, 

.123, 

.098, 

.133, 

.261, 

.374, 

.404, 

.401 , 

.392, 

6 

.384* 

.377, 

.369, 

.361, 

. 354, 

.311, 

.273, 

.236, 

.396, 

7 

.720, 

.761, 

.808, 

.839, 

.795, 

.722, 

.629, 

.519, 

7 

.271, 

. 160, 

.127, 

.177, 

.301 , 

.413, 

.435, 

.435, 

.426, 

7 

.417, 

.409, 

.401, 

.394, 

• 386, 

.342, 

.300* 

.263/ 


DATA ( (CL421 ( 1 * J) » J=1 * 26) » 1 = 1 1 

» 4 ) / 



-.450, 

-.522, 

1 

-.318, 

-.310, 

-.297, 

-.287, 

-.293, 

-.325, 

-.382, 

1 

-.611 , 

-.639, 

-.613. 

-.547, 

-.453, 

— . 369 , 

-.363, 

-.372, 

-.381, 

1 

-.391, 

-.400, 

-.411, 

-.423, 

-.433, 

-.443, 

-.439, 

-.433, 

-.351, 

2 

-.094, 

-.078, 

-.065, 

-.062, 

-.080, 

-.121, 

-.172, 

-.262, 

2 

-.445, 

-.487, 

-.450, 

-.368, 

-. 263, 

-.173, 

-.147, 

-.158, 

-.169, 

2 

-.177, 

-.182, 

- • 1 88 , 

-.194, 

-.200, 

-.216, 

-.223, 

-.229, 

186, 

3 

.117, 

.I2 fe , 

. 135, 

.137, 

.116, 

.086, 

. 023, 

— . 0 69 . 

3 

-.321, 

-.368, 

- • 327 , 

-.188, 

-.063, 

-.026, 

-.029, 

-.031, 

-.035, 

3 

- • 039 , 

-.04^ , 

-.048, 

-.052, 

-.056, 

-.067, 

-.076, 

-.084, 

-.088, 

4 

.305, 

.312, 

.324, 

.328, 

.310, 

.271, 

.189, 

.054 , 

4 

-.224, 

- .264 , 

-.224, 

-.074, 

.046, 

• 070, 

.068, 

. 065 , 

.061, 

4 

.057, 

.052, 

.048, 

.044, 

.039, 

.018, 

.002, 

-.012/ 


DATA ( ( CL42 1 < I » J) »J = 1»; 

26) ,1=5 

,7)/ 




.095, 

5 

• 453 , 

.466, 

.489, 

.497, 

.476, 

.430, 

.348, 

.232, 

5 

-.040, 

-.107, 

-.061, 

.101, 

.197, 

.229, 

.227, 

.226, 

.219, 

5 

.212, 

.205, 

. 198, 

.191, 

• 186, 

.154, 

.132, 

.110, 

.192, 

6 

.555, 

.578, 

.605, 

.620, 

.590, 

.525, 

.446, 

.319, 

6 

. 064 , 

.006, 

.054, 

.178, 

.299, 

.337, 

.331, 

.325, 

.319, 

6 

.313, 

.307, 

.300, 

.294, 

.288, 

.251, 

.222, 

.186, 

.255, 

7 

.608, 

.655, 

.729, 

.750, 

.691, 

.621, 

.514, 

.394, 

7 

.116, 

.050, 

.087, 

.220, 

.337, 

.380, 

.373, 

.367, 

.360, 

7 

.354, 

. 34b, 

.342, 

.336, 

.330, 

.293, 

.258, 

.232/ 


DATA ( (ALP404 ( J 

, N) *N = 1 

,9) , J=1 

,13)/ 




10.50, 

& 

-6.55, 

-4.81 , 

-3.07, 

-1.33, 

• 42, 

2.41, 

5.08, 

7.74, 

& 

-6.22, 

-4 , 62 , 

-3.03, 

-1.42, 

.24, 

1.99, 

4.49, 

6.95, 

9.79, 

& 

-6.00, 

-4.52, 

-3.04, 

-1.52, 

.07, 

1 .82, 

4.07, 

6.28, 

9.08, 

s, 

-5.90, 

-4 • 48 , 

-3.06, 

-1.61, 

-.03, 

1.68, 

3.77, 

5.94, 

8.66, 

s, 

-5.85, 

-4.47, 

-3.10, 

-1.69, 

-.13, 

1.54, 

3.49, 

5.56, 

8.09, 

& 

-5.84, 

-4.48, 

-3.12, 

-1.73, 

-.16, 

1.48, 

3.34, 

5.38, 

7.83, 
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8. 

-5 * B5 » 

-4.50, 

-3.15, 

-1.77, 

— .21, 

1.41, 

3.19, 

5.19, 

7.70, 

& 

-5 , 83» 

-4.50, 

—3 .18, 

-1.82, 

- • 26 , 

1.34, 

3.05, 

5.02, 

7.76, 

& 

-5 . 95 » 

-4.53, 

-3.21 , 

-1.86, 

-.34, 

1.26, 

2.92, 

4.86, 

7.93, 

8. 

-5.82* 

-4.54, 

-3.26, 

-1.97, 

-.43, 

1.18, 

2.82, 

4.77, 

8.37, 

8. 

-5.83* 

-4.58, 

-3.32, 

-2.07, 

-.53, 

1.09, 

2.78, 

4.90, 

8.89, 

8, 

-5.91* 

-4.66, 

-3.41, 

-2.16, 

-.62, 

.99, 

2.77, 

5.19, 

9.57, 

& 

-5.97* 

—4 .73, 

-3.48, 

-2.24, 

-.71, 

.97, 

2.90, 

5.57* 

10.27/ 

DATA ( ( A|_P404 ( J 

,N) * N= 1 » 9 ) ,J = 14,26)/ 





8. 

-6.30* 

-4.94* 

-3.59, 

-2.23, 

-.59, 

1.30, 

3.31, 

6.05, 

10.87, 

& 

-6.57* 

-5.07, 

-3.56, 

-2.06, 

-.10, 

1.81, 

3.76, 

6.73, 

11.44, 

8. 

-6.72* 

-4.99, 

—3 . 26 « 

-1.43, 

.53, 

2.29, 

4.33, 

7.41, 

11.33, 

& 

-5.82* 

-4. 06, 

-2.31, 

-.69, 

.97, 

2.76, 

4.92, 

7.90, 

11.13, 

8. 

-5.26* 

-3.64, 

-2.02, 

-.48, 

1.20, 

2.96, 

5.10, 

8.08, 

11.23, 

& 

-5.44* 

-3.85, 

-2.26, 

-.70, 

.97, 

2.71, 

4.74, 

7.69, 

10.79, 

8. 

-5.53* 

-4.04, 

-2.56, 

-.98, 

.67, 

2.36, 

4.14, 

7.03, 

10.31, 

6. 

-5.62* 

-4.19, 

-2.77, 

-1 .23, 

.43, 

2.03, 

3.81 » 

6.44, 

9.62, 

8. 

-5.70, 

-4.26, 

-2.82, 

-1.30, 

.30, 

1.05, 

3.73, 

6.34, 

9.42, 

8, 

-5.58, 

-4.13, 

-2.68, 

-1.12, 

.50, 

2.05, 

4.18, 

6.91, 

9.82, 

6. 

-5.22* 

-3.45, 

-1.63, 

.61, 

3.10, 

5.74, 

8.55, 

11.34, 

14.14, 

& 

-5.52* 

-3.05, 

-.33, 

3.00, 

6.07, 

8.95, 

11.83, 

14.71, 

17.58, 

6. 

-6.10* 

-3 . 1 A , 

.28, 

3.84, 

7 . 55 , 

11.15, 

14.76, 

18.36, 

21.96/ 

DATA ( ( ALP406 ( J 

»N> ,N=1 

,9) » J=1 , 

13)/ 





8. 

-5.99* 

-4.45, 

-2.90, 

-1.28, 

.51, 

2.71, 

5.31, 

7.87, 

10.47, 

& 

-6.16, 

-4.58, 

-3.01, 

-1.40, 

.28, 

2.06, 

4.73, 

7.19, 

9.71, 

8i 

-6.22* 

-4.65, 

-3.08, 

-1.50, 

.10, 

1.77, 

4.19, 

6.64, 

8.93, 

8. 

-6.28* 

-4.71, 

-3.13, 

-1.57, 

-.04, 

1 . 63 , 

3.86* 

6.32, 

8.46, 

8. 

-6.29, 

-4.74, 

-3.19, 

-1.66, 

-. 17 , 

1.48, 

3.54, 

5.98, 

8.05, 

8. 

-6.32* 

-4.77, 

-3.23, 

-1.70, 

-.23, 

1.39, 

3.36, 

5.80, 

8.04, 

8. 

-6.31* 

-4.79, 

-3.26, 

-1.75, 

-.30, 

1.29, 

3.18, 

5.73, 

8.32, 

& 

-6.31* 

-4.00, 

-3.29, 

-1.79, 

-.35, 

1.21, 

3.00, 

5.90, 

8.83, 

8, 

-6.33, 

-4.83. 

-3.32, 

-1.83, 

-.43, 

1.12, 

2.89, 

6.21, 

9.44, 

8. 

-6 . 34 » 

-4.85, 

-3.36, 

-1.88, 

-.50 , 

1.08, 

2.98, 

6.65, 

10.07, 

8, 

-6.46* 

-4.92, 

-3.37, 

-1.85, 

-.52, 

1.18, 

3.31, 

7.16, 

10.73, 

& 

-6,86* 

-5.09, 

-3.32, 

-1.66, 

-.31, 

1.63, 

3.82* 

7.70, 

11.41, 

8. 

-6.88, 

-4.87, 

-2 . 86 , 

-1 .23, 

.19, 

2.20, 

4.57, 

8.28, 

11.79/ 

DATA ( ( ALP406 ( J 

, N ) » N= 1 

s* 

H 

It 

* 

0" 

,26)/ 





8, 

-5.72, 

-3.94, 

-2.15, 

-.78, 

.79, 

2.73, 

5.42* 

8.79, 

12.07, 

& 

-4.63, 

-3.12, 

-1.66, 

-.34, 

1.34, 

3.26, 

6.15, 

9.23, 

12.31, 

8. 

-3.83, 

-2.52, 

-1.21, 

.13, 

1.79, 

3.79, 

6.79, 

9.74, 

12.68, 

8. 

-3.52, 

-2.36, 

-1.07, 

.36, 

2.02, 

4.07, 

7.06, 

10.31, 

13.56, 

8. 

-3.69, 

-2.52, 

-1.25, 

.10, 

1.84, 

3.77, 

6.51, 

9.93, 

13.35, 

8. 

-4.01 , 

-2.79, 

-1.53, 

-.21, 

1.47, 

3.34, 

5.91, 

9.15, 

12.41. 

8. 

-4.37, 

-3.06, 

-1.79, 

-.47, 

1.12, 

2.93, 

5 • 34 , 

8.49, 

11.64, 

8. 

-4.58, 

-3.25, 

-1.92, 

-.55, 

1.02, 

2.81, 

5.09, 

8.21, 

11.41, 

8. 

-4 . 53 , 

-3.16, 

-1.79, 

-.40, 

1.29, 

3.20, 

5.60, 

8.66, 

11.78, 

8. 

-4.45, 

-3.02, 

-1.60, 

-.19, 

1.67, 

3.74, 

6.41, 

9.23, 

12.04, 

8, 

-4.02, 

-2.40, 

-.65, 

1.74, 

4.55, 

7.25, 

9.80, 

12.34, 

14.89, 

& 

-3.84, 

-2.30, 

.22, 

3.42, 

6.38, 

9.38, 

12.39, 

15.40, 

18.41, 

8. 

-3.76, 

-2.29, 

.42, 

4.02, 

7.61 , 

11.00, 

14.39, 

17.78, 

21.17/ 

DATA { ( ALP409 ( J 

, N ) , N= 1 

,9) » J= 1 » 

13)/ 





8. 

-7.15, 

-5.19, 

-3.23, 

-1.26, 

.74, 

3.10, 

6.03, 

8.71, 

11.40, 

8. 

-7.25, 

-5.30, 

-3.35, 

-1.37, 

. 62 , 

2.68, 

5.15, 

7.89, 

10.72, 

& 

-7.61, 

-5.58, 

-3.55, 

-1.53, 

.44, 

2.35, 

4.60, 

7.14, 

9.90, 

8. 

-7.83, 

-5.75, 

-3.67, 

-1.61, 

.32, 

2.16, 

4.29, 

6.75, 

9.40, 

8, 

-8.00, 

-5,91, 

-3.81 , 

-1.74, 

.17, 

1.94, 

3.97, 

6.39, 

9.31 , 
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(, 

-8 ♦ 09 * 

-5.99* 

-3,88, 

-1.80, 

& 

-8 » 19 » 

-6.07, 

-3.96, 

-1.86, 

& 

-8.32, 

-6.18* 

-4.04, 

-1.92, 

8. 

-8.40* 

-6.28* 

-4.12, 

-1.98, 

& 

-8.31, 

-6 • 24 » 

-4.17, 

-2 . 09 , 

8. 

-9.22, 

-6.70* 

-4.19, 

-1.77, 

8.- 

10,46* 

-7.07* 

-3.68, 

-1.10, 


10.76* 

-6.31 » 

-1.94, 

-.09, 

DATA ( ( ALP4 09 ( J * 

N) »N=1* 

9) ,J=14, 

& 

-7.72* 

-3.76* 

-.86, 

1.11, 

& 

-3.80* 

-1.94, 

-.10, 

1.77, 

8. 

-3.53* 

-1.85, 

— .09, 

1.82, 

8. 

-3.80* 

-2.2** 

-.54, 

1.33, 

& 

-4.46* 

-2.78, 

-1.05, 

.77, 

6. 

-5.15, 

-3.30* 

-1.45, 

.39, 

8. 

-5.20, 

-3.34, 

-1.48, 

.37, 

8. 

-5.20* 

-3.26, 

-1.36, 

.50, 

8. 

-5.20* 

-3.18, 

-1.24, 

.66, 

8. 

-5.20* 

-3.11* 

-1.13, 

.84, 

8. 

-5.07* 

-2.80* 

-.50, 

2.07, 

8. 

-5.13* 

-2.65* 

.22, 

3.31, 

8. 

-5.40* 

-?.52» 

.51, 

4.08, 

DATA ( (Al_P4l2<vJ, 

N) » N = 1 , 

9) , j=i , : 

8. 

-8.13* 

-5.75, 

-3.37, 

-1.00, 

& 

-7.81* 

-5.66, 

-3.51, 

-1.28, 

8. 

-7.35, 

-5 , 42 » 

-3.49, 

-1.44, 

8. 

-7.10* 

-5.29, 

-3.48, 

-1.55, 

8. 

-6.84, 

-5.16, 

-3.49, 

-1.72, 

8, 

—6 . 68 » 

-5.08, 

-3.48, 

-1.81, 

8. 

—6,45* 

-4.94* 

-3.43, 

-1.87, 

8. 

-6.32* 

-4.85, 

-3.37, 

-1.83, 

8» 

-6.59, 

-4.89* 

-3.18, 

-1.38, 

8. 

-5,78* 

-4 • 1 7 , 

—2 . 56 , 

-.77, 

8, 

-5.00* 

-3.41* 

-1.76, 

.43, 

8, 

-4.27* 

-2.4'9, 

— . 46 , 

2.02, 


-3.22* 

-1.11* 

.88, 

3.25, 

DATA ( ( ALP412 (J 

, N ) , N= 1 

,9) ,J=14 

8, 

-2.36, 

-.61* 

1.34, 

3.71, 

8. 

-2.75* 

-.87 ♦ 

.96, 

3.24, 

& 

-3.78* 

-1.62* 

.10, 

2.34, 

8. 

-5.03* 

-2.58, 

-.58, 

1 .50, 

8. 

-5.84* 

-3.01 » 

-.83, 

1.18, 

8. 

-5.74, 

-3.04* 

-.83, 

1.26, 

8, 

-5.68* 

-3.01* 

-.77, 

1.40, 

8. 

-5,65* 

-2.97, 

-.67, 

1.53, 

& 

-5,65* 

-2.93, 

-.58, 

1.67, 

& 

-5.62* 

-2.88, 

-.51, 

1.80, 

& 

-5.49, 

-2.59, 

-.08, 

2 • 66 , 

8, 

-5.38* 

-2.21* 

.41, 

3.47, 

8. 

-5.10* 

-2.05, 

.91, 

4.45, 


DATA ( (ALP415( J 

,N) ,N=1 

,9) , J=1 » 

8. 

-8.62* 

-5.82, 

-3.02, 

— . 48 , 

Si 

-8.19* 

-5.63, 

-3.06, 

-.56, 

8. 

-7.55, 

-5.32* 

-3.08, 

-.69, 

81 

-7.25* 

-5.17, 

-3.08, 

-.76, 


.10, 

1.83, 

3.85, 

6.22, 

9.82, 

.03, 

1.71, 

3.71, 

6.20, 

11.20, 

- • 06 , 

1.62, 

3.62, 

6.76, 

12.65, 

-.14, 

1.56, 

3.78, 

8.39, 

14.95, 

-.15, 

1.71, 

4.69, 

10.06, 

15.94, 

0.00, 

2.33, 

6.11, 

11.44, 

16.77, 

.90, 

3.89, 

7.68, 

12.56, 

17.44, 

2.11, 

5.06, 

9.00, 

13.44, 

17.89/ 

26)/ 

3.41 , 

6.00, 

10.17, 

14.33, 

18.50, 

4.16, 

6.99, 

11.03, 

15.07, 

19.11, 

4.15, 

6.84. 

10.92, 

15.00, 

19.08, 

3.54, 

5.87, 

9.74, 

13.70, 

17.66, 

2.85, 

5.22, 

8.53, 

12.30, 

16.08, 

2.38* 

4.70, 

7.75, 

11.56, 

15.37, 

2.35, 

4.76, 

8.00, 

12.12, 

16. 25 , 

2.58, 

5.02, 

8.43, 

12.51, 

16.59, 

2.86, 

5.31, 

8.84* 

12.84, 

16.84, 

3.15, 

5.59, 

9.22, 

13.11, 

16.99, 

4.77, 

7.77, 

11.28, 

14.79, 

18.30, 

6.26, 

9.71, 

13.16, 

16.60, 

20.05, 

7.75, 

11.26, 

14.77, 

18.28, 

21.79/ 

13) / 

1.25, 

3.90, 

7.00, 

10.23, 

13.45, 

.99, 

3.36, 

5.97, 

9.41, 

12. 86 , 

.84, 

3.03, 

5.43, 

8.49* 

11.74, 

.74, 

2.81 , 

5.10* 

7.88, 

10.93, 

.64, 

2.61, 

4.79, 

7.50, 

10.81, 

.56, 

2.53, 

4.80, 

7.96, 

11.81, 

.50, 

2.56, 

5.22, 

8.91, 

12.65, 

.51, 

3.22, 

6.17, 

10.33, 

14.50, 

.83, 

4.50, 

7.77, 

11.98, 

16.19, 

1.84, 

5.50, 

9.35, 

13.52, 

17.69, 

3.88, 

6.77, 

10.94, 

15.10, 

19.27, 

4.90, 

8.38, 

12.59, 

16.80, 

21.01, 

5 . 85 , 

9.98, 

14.19, 

18.40, 

22.61/ 

,26)/ 

6.34, 

11.16, 

15.99, 

20.30, 

25.61, 

5.70, 

10.24, 

15.06, 

19.88, 

24.70, 

4.80, 

8.54, 

13.25, 

17.95, 

22.66, 

3.90, 

6.89, 

11.43, 

15.98, 

20.52, 

3.55, 

6.12, 

10.94, 

15.76, 

20.58, 

3.71, 

6.28, 

11.28, 

16.28, 

21.28, 

3.87, 

6.66, 

11.72, 

16.78, 

21.85, 

4.04, 

7.05, 

12.05, 

17.05, 

22.05, 

4.20, 

7.45, 

12.45, 

17.45, 

22.45, 

4.37, 

7.83, 

12.77, 

17.70, 

22.64, 

5.59, 

9.55, 

13.67, 

17.79, 

21.92, 

6.88, 

10.88, 

14.88, 

18.98, 

22.88, 

8.11, 

11.81, 

15.52, 

19.22, 

22.93/ 

13)/ 

1.76, 

4.75, 

8.63, 

12.71, 

16.80, 

1.60, 

4.24, 

7.82, 

11.90, 

15.98, 

1.47, 

3.91, 

7.07, 

11.03, 

14.99, 

1.40, 

3.74, 

6.52, 

10.13, 

13.73, 


62 



& 

-7.00, 

-5.04, 

-3.08, 

-.82, 

1.34, 

3.58, 

6.15, 

9.51, 

12.87, 

& 

-6.90* 

-4.98, 

-3.06, 

-.84, 

1.30, 

3.62, 

6.37, 

9.70, 

13.03, 

& 

-6.68, 

-4.82, 

-2.97, 

-.82, 

1.44, 

4.00, 

7.02, 

10.47, 

13.91, 

& 

-5.99* 

-4.35, 

-2.71, 

-.54, 

1.86, 

5.01, 

8.58, 

12.47, 

16.35, 

& 

-5.34, 

-3.80, 

-2.26, 

• 20, 

3.29, 

6.63, 

11.63, 

16.63, 

21.63, 

& 

-4.60t 

-3.06, 

-1.19, 

1.23, 

5.04, 

9.67, 

15.15, 

20.63, 

26.11, 

& 

-3.78, 

-2.05, 

.48, 

3.45, 

7.31, 

13.28, 

19.25, 

25.22, 

31.19, 

& 

-2.52* 

-.05, 

2.23, 

5.05, 

10.74, 

17.19, 

23.65, 

30.10, 

36.55, 

& 

-1.96. 

.63, 

2.74, 

6.16, 

11.49, 

16.83, 

22.16, 

27.49, 

32.63/ 

DATA ( (ALP415(J 

» N ) * N- 1 , 

9) , J=1 4 

,26)/ 





& 

-2.15, 

.26, 

2.17, 

5.14, 

10.47, 

15.95, 

21.42, 

26.90, 

32.38, 

& 

-3.27* 

-.83, 

1.20, 

3.49, 

7.97, 

13.77, 

19.57, 

25.36, 

31.16, 

f. 

-4.53* 

-1.72, 

.36, 

2.58, 

5.53, 

11.87, 

18.53, 

25.20, 

31.87, 

& 

-5.79, 

-2.02* 

.13, 

2.26, 

4.95, 

10.92, 

17.69, 

24.47, 

31,25, 

8. 

-5.92, 

-2. lit 

.15, 

2.31, 

5.07, 

11.32, 

18.46, 

25.61, 

32.75, 

& 

-5.92* 

-2. lit 

.17, 

2.39, 

5.24, 

11.45, 

18.34, 

25,24, 

32.14, 

?> 

-5.92* 

-2.11* 

.19, 

2.46, 

5.40, 

11.76, 

18.66, 

25.55, 

32.45, 

& 

-5.91, 

-2.13, 

.22, 

2.55, 

5.56, 

12.18, 

19.19, 

26.21, 

33.23, 

8. 

-5.91, 

-2.13, 

.24, 

2.64, 

5.73, 

12.61, 

19.75, 

26.89, 

34,04, 

8. 

-5.91, 

-2.13, 

.27, 

2.72, 

5.91 , 

12.72, 

19.62, 

26.52, 

33.41, 

8. 

-5.89, 

-2. lit 

.45, 

3.28, 

7.34, 

13.06, 

18.77, 

24.49, 

30.20, 

8. 

—6. 00 , 

-1.93, 

.62, 

3.83, 

8.36, 

14.33, 

20.30, 

26.27, 

32.24, 

8. 

-6.18, 

-1.80, 

.75, 

4.35, 

9.07, 

14.87, 

20.67, 

26.46, 

32.26/ 

DATA ( (ALP418( J 

» N ) * N= 1 , 

9) , J=1 * 

13)/ 





8. 

-7.92, 

-5.32, 

-2.73, 

-.05, 

2.30, 

5.51 , 

9.67, 

13.83, 

18.00, 

8. 

-7.86, 

-5.28, 

-2.70, 

-.16, 

2.18, 

5.15, 

8.70, 

12.27, 

15.84, 

& 

-7.22, 

-4.92, 

-2.62, 

-.25, 

2.03, 

4.74, 

7.87, 

11.23, 

14.59, 

8 

-6.88, 

-4.76, 

-2.63, 

-.31 , 

1.96, 

4.53, 

7.34, 

10.73, 

14.12, 

8 

-6.40, 

-4.49, 

-2.57, 

-.30, 

2.04, 

4.99, 

8.08, 

11.11, 

14.14, 

8 

-5.86, 

-3.95, 

-2.05, 

.20, 

3.07, 

6.36, 

9.05, 

11.73, 

14.42, 

8 

-4.91, 

-3.05, 

-1.02, 

1.37, 

4.6?, 

7.61, 

10.30, 

12.98, 

15.66, 

8 

-4.02, 

-2.0l ♦ 

.22, 

2.86, 

6.18, 

9.?4, 

12.29, 

15.34, 

18.40, 

8 

-2.97, 

-.80, 

1.58, 

4.36, 

8.08, 

12.04, 

16.00, 

19.96, 

23.92, 

8 

-1.77* 

.45 , 

2.96, 

5.97, 

11.74, 

17.54, 

23.33, 

29.13, 

34.93, 

8 

-.63, 

1.66, 

3.95, 

10.16, 

20.97, 

31.78, 

42.59, 

53.41, 

64.22, 

8 

-.11, 

2.13, 

4.55, 

13.03, 

26.83, 

40.62, 

54.41, 

68.21, 

82.00, 

8 

-.49, 

1.72, 

3.91, 

9.05, 

18.14, 

27.23, 

36.32, 

45.41, 

54.50/ 

OAT A ( (ALP418<J 

»N) » N= 1 , 

9) , J=14 

■ » 26 ) / 





8 

-1.66, 

.37, 

2.46, 

5.05, 

12.95, 

22.95, 

32.95, 

42.95, 

52.95, 

8 

-2.88, 

-. 87 , 

1.21, 

3.36, 

7.33, 

17.59, 

27.85, 

38.10, 

48.36, 

8 

-3.94, 

-1.43, 

.92, 

3.14, 

5.94, 

18.65, 

31.55, 

44.45, 

57.35, 

8 

-4.33, 

-1.44, 

.91, 

3.14, 

5.98, 

17.71, 

29.47, 

41.24, 

53.00, 

8 

-4.35, 

-1.43, 

.94, 

3.21, 

6.47, 

18.24, 

30.00, 

41 .76, 

53.53, 

8 

-4.33, 

-1.43, 

.97, 

3,29, 

6.97, 

19.09, 

31.21, 

43.33, 

55.45, 

8 

-4.32, 

-1.43, 

1.01, 

3.37, 

7.44, 

19.94, 

32.44, 

44.94, 

57.44, 

8 

-4.32, 

-1.42t 

1.05, 

3.45, 

7.94, 

20.44, 

32.94, 

45.44, 

57.94, 

8 

-4.30, 

-1.41, 

1.08, 

3.54, 

8.36, 

20.48, 

32.61 , 

44.73, 

56.85, 

8 

-4.30, 

-1.41, 

1.11, 

3.62, 

8 , R8 » 

21.38, 

33.88, 

46.38, 

58.88, 

8 

-4,25, 

-1.37, 

1.30, 

4.20, 

11.74, 

24.65, 

37.55, 

50.45, 

63.35, 

8 

-4.43, 

-1.37, 

1.45, 

4.72, 

15.41 , 

30.22, 

45.04, 

59.85* 

74.67, 

8 

-4.70, 

-1.36, 

1.61, 

5.31, 

18.15, 

32.96, 

47.78, 

62.59, 

77.41/ 

OATA ( (ALP421 < J 

*N) , N= 1 , 

9) , J=li 

» 13)/ 





8 

-4.73, 

-2.95, 

-1.11, 

.88, 

3.28, 

7.70, 

15.25, 

22.79, 

30.34, 

8 

-4.78, 

-3.05, 

-1.24, 

.80, 

3.14, 

6.57, 

11.77, 

16.96, 

22.16, 

8 

-4.89, 

-3.16, 

-1.35, 

.69, 

2.92, 

5.91, 

9.15, 

12.37, 

15.60, 



6 -5.00, 

-3.23, 

-1.38, 

8. -5.00, 

-3.13, 

-1.18, 

8. -4.74, 

-2.77, 

-.83, 

& -4. 17 , 

-2.27, 

-.28, 

t. -3.47, 

-1.3&, 

1.12, 

6, -2.57, 

-.17, 

2.96, 

8. -1.27, 

2.26, 

4.77, 

8. — . 54 , 

2.82, 

5.86, 

& -1.19, 

2.29, 

5.06, 

8. -2.36, 

-.13, 

2.85, 

DATA ( ( ALP421 <J» 

N) »N=1 

8. -3.44, 

-1.37, 

1.16, 

8. -4.32, 

-2.28, 

.54, 

& -4.34, 

-2.49, 

.58, 

8. -4.26, 

-2.39, 

.65, 

8. -4.18, 

-2.29, 

.73, 

& -4.08, 

-2.21, 

.81, 

8, -4.00, 

—2. 17 , 

.92, 

8, -3.90, 

-2.11, 

1.00, 

8, -3.80, 

-2.05, 

1.08, 

& -3.72, 

-2.00, 

1.18, 

& -3.62, 

-1.79, 

1.58, 

8. -3.64, 

-1.69, 

1.95, 


& -3.68, -1.60, 2.20, 


.66, 2.85, 5.67, 

.87, 3.08, 6.20, 

1.23, 3.62, 7.56, 

2,14, 5.06, 10.53, 

3.64, 8.16, 13.49, 

6.25, 12.60, 18.95, 
11.23, 18.92, 26.62, 
15.14, 24.67, 34.19, 
14.85, 26.97, 39.09, 

7.05, 16.57* 26.10, 
9) ,J=14,26)/ 

4.06, 11.32, 21.84, 

3.64, 8.93, 18.23, 

3.66, 9,29, 18.81, 

3.68, 9.57, 19.10, 

3.76, 9.95, 19.71, 

3.85, 10.24, 20.00, 
3.93, 10.54, 20.29, 
4.04, 10.76, 20.29, 
4.17, 11.05, 20.57, 
4.27, 11.33, 20.86, 
4.95, 13.10, 22.62, 
5.51, 15.89, 27.00, 
6.61, 15.30, 24.00, 


8. 

77, 

11. 

85, 

14. 

92, 

10. 

16, 

14. 

12, 

1 8 « 

08, 

11. 

73, 

15. 

90, 

20. 

06, 

16. 

41, 

22. 

29, 

28. 

18, 

18. 

83, 

24. 

16, 

29. 

49, 

25. 

30, 

31. 

65, 

38, 

00, 

3*. 

31, 

42. 

00, 

49, 

.69, 

43. 

71, 

53. 

24, 

62, 

.76, 

51. 

21, 

63, 

33 , 

75, 

,45, 

35. 

,62, 

45, 

,14, 

54, 

,67/ 

32. 

,37, 

42, 

,89, 

53, 

.42, 

27, 

.53, 

36, 

.84, 

46, 

.14, 

28, 

.33, 

37, 

.86, 

47, 

.38, 

28, 

.62, 

38, 

.14, 

47 

.67, 

29, 

.46, 

39 

.22, 

48 

.98, 

29, 

.76, 

39 

.51, 

49 

.27, 

30, 

• 05, 

39, 

.80, 

49 

.56, 

29 

.81, 

39 

.33, 

48 

. 86 , 

30 

.10, 

39 

.62, 

49 

.14, 

30 

.38, 

39 

.90, 

49 

.43, 

32 

.14, 

41 

.67, 

51 

.19, 

38 

• 11, 

49 

.22, 

60 

.33, 

32 

.70, 

41 

.39, 

50 

.09/ 


DATA ( (C0404 ( I » J) » J = 1 » 26) ,1=1,5)/ 

1 .0134, .0132, .0131, .0131, .0130, 

1 .0129, . 0129 , .0136, .0158, .0204, 

1 .0465, .0489, .0501, .0505, .0501, 

2 .0063, .0061, .0053, .0053, .0053, 

2 .0056, .0059, .0083, .0116, .0154, 

2 .0365, .0384, .0397, .0410, .0423, 

3 .0049, .0049, .0048, .0048, .0046, 

3 .0053, .0061, .0077, .0112, .0175, 

3 .0406, . 0424 , .0442, .0459, .0470, 

4 .0068* .0066, .0058, .0057, .0056, 

4 .0061, .0069, .0093, .0154, .0230, 

4 .0591, . 0644 , .0698, .0752, .0803, 

5 .0231, .0143, .0105, .0096, .0091, 

5 .0108, .0153, .0237, .0337, .0460, 

5 .1019, .1112* .1205, .1298, .1379, 

DATA ( ( CD406 ( I , J ) ,J=1» 26) ,1=1*5)/ 

1 .0126, .0124, .0124, .0123, .0123, 

1 .0122, .0125, .0139, .0183, .0235, 

1 .0516, .0543, .0570, .0583, .0589, 

2 .0057, .005&* .0056, .0056* .0057, 

2 .0072, . 0093 , .0124, .0158, .0203, 

2 .0434* .0467, .0483, .0499, .0506, 

3 .0049* .0049, .0047, .0046, .0046, 

3 .0059, .0074, .0110, .0151, .0192, 

3 .0460, .0489, .0512, .0532, .0551, 

4 .0059* .0056* .0055, .0055* .0054, 

4 .0067, .0097, .0130, .0177, .0257, 

4 .0695, .0757, .0820, .0867, .0903, 

5 .0205, .0133, .0113, .0107, .0104, 

5 .0147, .0181* .0268, .0422, .0610, 


.0130, .0130, 
.0261, .0329, 
.0409, .0299, 
.0053, .0053, 
.0212, .0268, 
.0403, .0360, 
.0048, .0048, 
.0254, .0306, 
.0531, .0596, 
.0056, .0056, 
.0325, .0408, 
.0963, .1089, 
.0091, .0091, 
.0568* .0686, 
.1722, .1959, 

.0123, .0122, 
.0299, .0365, 
.0523, .0393, 
.0057, .0057, 
.0251, .0299, 
.0493, .0439, 
•0046, .0046, 
.0253, ,0318, 
.0635, .0697, 
•0053, .0052, 
.0358, .0455, 
.1088, .1225, 
.0106, .0108, 
.0798, .0979, 


.0130, .0129, 
.0401, .0434, 
.0241, 

.0053, .0053, 
.0315, .0340, 
.0339, 

.0049, .0050, 
.0348, .0387, 
.0692, 

.0057, .0058, 

.0482, .0539, 
.1298, 

.0093, .0096, 
.0817, .0927, 
.2106/ 

. 0122 , . 0122 , 
• 0432 , . 047 8 , 
.0291, 

.0059, .0062, 
.0350, .0400, 
.0403, 

.0047, .0050, 
.0379, .0429, 
.0759, 

.0052, .0056, 
.0543, .0624, 
.1313, 

.0111, .0123, 
.1106, .1233, 
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5 

• 1348 » 

.1458, 

.1568, 

.1663, 

.1744, 

.2053, 

.2201, 

.2248/ 


DATA ( ( CD409 ( I » 

J) * J=1 * 

26) ,1=1,5)/ 





1 

•0106, 

.0106, 

.0106, 

.0106, 

.0106, 

.0107, 

.0107, 

.0107, 

.0110, 

1 

#0122* 

.0147, 

.0192, 

.0245, 

.0305, 

.0379, 

.0459, 

.0537, 

.0614, 

1 

• 0693 » 

.0772, 

.0832, 

.0869, 

.0891, 

.0829, 

.0635, 

.0493, 


2 

,0062* 

• 0062 , 

.0062, 

.0062, 

.0062, 

.0062, 

.0062, 

.0063, 

.0066, 

2 

.0085, 

.0121, 

.0165, 

• 0220, 

.0283, 

.0349, 

.0416, 

.0483, 

.0546, 

2 

. 0 60 7 ♦ 

.0664, 

.0717, 

.0746, 

.0768, 

.0741 , 

.0681, 

.0579, 


3 

• 0062 » 

.0062, 

.0062, 

.0062, 

.0062, 

.0062, 

.0062, 

.0062, 

.0062, 

3 

.0062* 

.0062, 

.0062, 

.0062, 

.0062, 

.0062, 

.0062, 

•0062, 

.0062, 

3 

.0062* 

.0062, 

.0062, 

.0062, 

.0062, 

.0062, 

.0062, 

.0062, 


4 

• 0 054* 

.0055, 

.0055, 

.0056, 

.0056, 

.0056, 

.0053, 

.0059, 

.0069, 

4 

.0093* 

.0131, 

.0177, 

.0240, 

.0306, 

.0403, 

.0499, 

.0588, 

.0661 , 

4 

.0710, 

.0754, 

.0792, 

.0830, 

.0846, 

.0890, 

.0907, 

.0924, 


5 

.0084, 

.0071, 

.0064, 

.0063, 

.0063, 

.0065, 

.0068, 

.0072* 

.0087, 

5 

.0127, 

.0189, 

.0251, 

.0314, 

.0405, 

.0541, 

.0690, 

.0814, 

.0891, 

5 

. 0966 , 

.1038, 

.1092, 

.1135, 

.1177, 

.1336, 

.1443, 

.1516/ 


DATA ( (CD412 ( I ♦ 

J) , J=1 * 

26) ,1=1,5)/ 





1 

.0058, 

.0058, 

.0058, 

.0058, 

•0058, 

• 0058, 

.0058, 

.0058, 

.0058, 

1 

.0061, 

.0068, 

.0129, 

.0235, 

.0348, 

.0456, 

.0547, 

.0607, 

.0649, 

1 

.0684, 

.0706, 

.0723, 

.0741, 

.0751, 

.0754, 

.0752, 

.0700, 


2 

.0083, 

.0083, 

.0083, 

.0083, 

.0083, 

.0083, 

.0084, 

.0084, 

.0084, 

2 

.0091, 

.014b, 

.0241, 

.0340, 

.0444, 

.0539, 

.0614, 

.0670, 

.0708, 

2 

.0738, 

.0759, 

.0775, 

.0787, 

.0794, 

.0320, 

.0826, 

.0812, 


3 

.0150, 

.0150, 

.0150, 

.0150, 

.0150, 

.0151, 

.0152, 

. 0 153 , 

.0158, 

3 

.0187, 

.0262, 

.0354, 

.0454, 

. 0556 , 

.0650, 

.0721, 

.0784, 

.0839, 

3 

.0882, 

.0912* 

.0942, 

.0965, 

.0986, 

.1058, 

.1100, 

.1142, 


4 

.0233, 

.0251 , 

.0259, 

.0264, 

.0268, 

.0270, 

.0272, 

.0283, 

.0312, 

4 

.0428, 

.0598, 

.0776, 

.0917, 

.1023, 

.1106, 

.1188, 

.1251, 

.1309, 

4 

.1356, 

.1381 , 

.1406, 

.1431, 

.1459, 

. 1583, 

.1664, 

.1710, 


5 

.0338, 

.0390, 

.0416, 

.0427, 

.0447, 

.0462, 

.0509, 

.0592, 

.0715, 

5 

.0894, 

. 1082, 

.1263, 

.1432, 

.1581, 

.1707, 

.1799, 

.1864, 

.1900, 

5 

.1934, 

.1935, 

.1936, 

.1937, 

.1938, 

• 1944, 

.1950, 

.1956/ 


DATA ( (CD415 (I • 

J ) » J= 1 * 

26), 1=1, 5)/ 





1 

.0107, 

.0138, 

.0153, 

.0161, 

.0169, 

.0173, 

.0176, 

.0190, 

.0219, 

1 

. 0266 , 

.0376, 

.0501, 

.0642, 

.0750, 

.0858, 

.0967, 

.1062, 

.1152, 

1 

.1242, 

.1306, 

.1369, 

.1430, 

.1445, 

.1400, 

.1245, 

.1071, 


2 

.0093, 

.0093, 

.0094, 

.0094, 

.0096, 

.0100, 

.0107, 

.0120, 

.0169, 

2 

.0271, 

.0388, 

.0515, 

.0655, 

.0784, 

.0906, 

.1009, 

.1107, 

.1193, 

2 

.1267, 

.1328, 

.1382, 

.1436, 

.1464, 

.1380, 

.1291, 

.1177, 


3 

.0084, 

.0083, 

.0083, 

.0083, 

.0085, 

.0091, 

.0104, 

•0130, 

.0198, 

3 

.0310, 

.0432, 

.0560, 

.0689, 

.0820, 

.0948, 

.1048, 

.1147, 

.1244, 

3 

.1330, 

.1416, 

.1500, 

.1532, 

.1563, 

.1623, 

.1560, 

.1497, 


4 

.0096, 

.0096, 

. 0096, 

.0096, 

.0102, 

.0108, 

.0124, 

.0158, 

.0224, 

4 

.0351, 

.0497, 

.0657, 

.0797, 

.0926, 

.1056, 

.1183, 

.1308, 

.1433, 

4 

.1557, 

.1634, 

.1706, 

.1777, 

.1849, 

.2016, 

.2093, 

.2158. 


5 

.0192, 

.0163, 

.0158, 

.0162, 

.0178, 

.0193, 

.0215, 

.0350, 

. 0543 , 

5 

.0771, 

.0977, 

.1154, 

.1352, 

.1561, 

.1724, 

.1858, 

.1993, 

.2114, 

5 

.2205, 

.2297, 

.2388, 

.2455, 

.2510, 

.2702, 

.2753, 

.2803/ 


DAT A ( ( C04 1 8(1, 

J) , J=l, 

26) ,1=1,5) / 





1 

.0122, 

.0154, 

.0170, 

.0180, 

.0190, 

.0200, 

.0219, 

.0253, 

.0369, 

1 

.0555, 

.0737, 

.0897, 

.1011, 

.1118, 

.1199, 

.1279, 

.1360, 

.1419, 

1 

.1469, 

. 1518 , 

.1557, 

.1574, 

.1590, 

.1624, 

.1569, 

.1480, 


2 

.0100, 

.0099, 

.0098, 

.0097, 

.0101, 

• 0 1 07 , 

.0131, 

.0210, 

.0420, 

2 

.0601, 

.0772, 

.0939, 

.1071, 

.1176, 

.1282, 

.1386, 

.1420, 

• 1453, 



2 

.1487, 

.1520, 

.1554, 

.1587, .1621, 

3 

.0102, 

.0104, 

.0105, 

.0106, .0113, 

3 

.0624, 

.0822, 

.1017, 

•1148, .1275, 

3 

. 1710, 

.1755, 

.1799, 

.1843, .1888, 

4 

.0162, 

.0137, 

.0131 , 

.0135, .0147 ■ 

4 

.0681, 

.0902, 

.1111, 

.1276, .1420 

4 

. 1936, 

.2002, 

.2068, 

.2122, .2154 

5 

.0231, 

.0287, 

.0315, 

.0329, .0352 

5 

.1165, 

.1453, 

.1712, 

.1945, .2177 

5 

.2809, 

.2895, 

.2981, 

.3024, .3055 


DATA ( (CD421 ( I ♦ J) » J=1 
1 .0141. ,0150. .0154 

1 .0636. .0797. .0950 

1 .1842. .1903. .1935 

2 ,0123. .0127. .0129 
2 ,0694. .0857. .1019 

2 .1985. .2047. .2098 

3 .0138. .0143, .0146 

3 .0766. .0945, .1141 

3 .2122. .2185, .2247 

4 .0152, .0159, .0163 
4 .0788, .1033, .1260 

4 .2386, .2492, .2599 

5 .0329, . 0 32 1 » .0337 

5 .1406, .1662, .1919 

5 .3203, .3260, .3310 

DATA ( XMI ( J) , J=1 ,26) / 
8. .8, .825, .85, .875, .9 

U. 1,1. 125,1. lb, 1.3,1 
DATA (CLI ( J) , J=1 ,9) /- 


.0156, .0159 
.1109, .1273 
.1956, .1977 
.0130, .0134 
.1178, .1337 
.2149, .2178 
.0147, .0151 
.1331, .1503 
.2310, .2352 
.0165, .0171 
.1472, .1670 
.2657. .2706 
.0355, .0382 
.2139, .2359 
.3360, .3402 
3, .5, .6, .65,. 
.925* .95, .975 
45,1.6/ 

^ v w_ * , T - .. .. -4, -.2, O.o, .2, 

DATA (ALP I ( J) » J=1 ,7) /-4 . 0 , -2 . 0 , 0 . 0 , 
DATA ( CL 1 1 (J) ,J = l,5)/0.0,.2,.4,.6,. 
I ORDER ( 1 ) = I ORDER (2) =1 


.1720, 

.0124, 

.1387, 

.1904, 

.0159, 

.1564, 

.2299, 

.0378, 

.2329, 

.3204, 


.1660 

.0150 

.1475 

.1887 

,0194 

.1669 

.2336 

.0444 

.2480 

.3284 


.0166, .0204 
.1437, .1563 
.1994, .2002 
•0146, .0216 

.1501, .1667 
.2178, .2178 
.0167, .0243 
.1676, .1801 
.2428, .2449 
.0187, .0244 
.1836, .2003 
.2809, .2821 

• 0417 , .0606 
.2578, .2743 
. .3389, .3376 

7, .725, .75, .775 
1.0,1.025,1.05 


.1530, 

.0217, 

.1563, 

.1772, 

.0278, 

.1766, 

.2336, 

.0588, 

.2630, 

.3364/ 

.0316, 
.1687, 
. 2010 , 
.0350* 
.1798, 
.2178, 
.0400, 
.1921, 
.2470, 
. 0356 , 
.2169, 
.2833, 
.0877, 
.2896, 
. 33b3/ 

, 

,1.075, 


4, .6, .8,1.0, 1.2/ 

2. 0,4. 0,6. 0,8.0/ 
8/ 


.0419, 

.1652, 

.0459, 

.1864, 

.0839, 

.2723, 


.0471, 

.1781, 

. 0 5 0 7 , 
.1891, 

.0584, 

.2041, 

.0550, 

.2279, 

.1144, 

.3049, 


IPT 

(1) 

= -1 





IF 

(IKEY ,EO. 2) GO TO 

1000 




IF 

(TR 

•LT. .04) GO TO 

9 




IF 

(TR 

.GE. .04 .AND. 

TR .LT. .06) 

GO 

TO 

1 

IF 

(TR 

.GE. .06 .AND. 

TR .LT. .09) 

GO 

TO 

2 

IF 

(TR 

.GE. .09 .AND. 

TR .LT. .12) 

GO 

TO 

3 

IF 

(TR 

.GE. .12 .AND. 

TR .LT. .15) 

GO 

TO 

4 

IF 

(TR 

.GE. .15 .AND. 

TR .LT. .19) 

GO 

TO 

5 

IF 

(TR 

.GE. .18 .AND. 

TR .LT. .21) 

GO 

TO 

6 


IF (TR • GE • .21) GO TO 7 

9 CALL I B I ( 7, ALPI ,26, XMI , 7, CL404, IORDER, IPT, AA, XM, 


CLFT04, I ERR ) 


CL=CLFT04 

1 CALL I B I (7,ALPI ,26,XMI ,7,CL404, IORDER, IPT,AA,XM,CLFT04, IERR) 

CALL IBI ( 7, ALPI ,26, XMI ,7 ,CL406, IORDER, IPT , AA, XM»CLFT06, IERR) 
Cl = CLFT04 + (CLFT06-CLFT04) * ( (TR-. 04) / ( . 06-. 04) ) 

2 CALL IBI ( 7 , ALPI , 26,XMI , 7 ,CL406, IORDER, IPT, AA ,XM, CLFT06, IERR) 

CALL ( IBI ( 7, ALPI *26, XMI. 7,CL*09* IORDER t IPT* AA.XMtCLFT09* IERR) 
Cl = CLFT 06 ♦ (CLFT09 - CLET06 ) * ( ( TR- . 06 ) / ( . 09- . 06) ) 
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3 CALL°iBi°(7,ALPI*26»XMI,7 f CL^09,IORDER*IPT*AA,XM*CLFT09,IERR) 

CALL ( lBl"(7,ALPIt26,XMl,7 f CL^12,I0R0ER,IPT.AA,XM»CLFT12,IERR) 
CL=CLFT09+(CLFT12-CLFT09)*( (TR-.09) / ( . 12-.09) ) 

4 CALL IBI (7*ALPI»26»XMI*7»CL412*I0R0ER*IPT*AA*XM*CLFT12*IERR) 

CALL IBI ( 7* ALPI * 26* XMI * 7* CL415* IORDER* IPT* AA* XM*CLFT15* IERR) 
CL=CLFT 1 2 * (CLFT15-CLFTI2) * ( (TR-. 12) / ( • 15-. 12) ) 

5 CaLl°iBi° (7* AlPI » 26*XMI » 7 , CL^ 15 * I ORDER * I p T * AA » XM* CLFT 1 5 * I ERR ) 

CALL ^ IBI ( 7* ALPI *26* XMI ,7»CL418* IORDER* IPT ♦ AA*XM*CLFT18» I ERR) 
CL=CLFT15+(CLFT18-CLFT15)*( (TR-. 15) / ( . 18-. 15) ) 

6 CALL°IBI° (7* ALPI*26»XMI*7*CL418»I0RDER*IPT*AA»XM*CLFT18*IERR) 

CALL IBI (7 * ALP I » 26* XMI *7 *CL421 » IORDER * IPT * AA ♦ XM» CLFT21 » IERR ) 
CL=CLFT1 8+ (CLFT21-CLFT18)*( (TR-.18)/(.21-.18> ) 

7 CALL IBI ( 7* ALPI *26* XMI *7 » CL421 * IORDER * IPT » AA* XM*CLFT21 * IERR) 
CL=CLFT21 

GO TO 400 
1000 CONTINUE 

IPT ( 1 ) =-l 

IF (TR .LT. .04) GO TO 90 

IF (TR .GE. *04 .AND. TR .LT. .06) GO TO 10 

IF (TR .GE. .06 .AND. TR .LT. .09) GO TO 20 

IF (TR .GE, .09 .AND. TR .LT. .12) GO TO 30 

IF (TR .GF. .12 .AND. TR .LT. .15) GO TO 40 

IF (TR .GE. .15 .AND. TR .LT. .18) GO TO 50 

IF (TR .GE, .18 .AND. TR .LT. .21) GO TO 60 

IF (TR .GE. .21) GO TO 70 

90 CALL IBI ( 26 » XMI » 9 * CLI * 26 » ALPA04 * IORDER » IPT * XM . CL* AA04 » I ERR ) 
AA=AA04 
GO TO 400 

10 CALL IBI (26»XMI*9»CLI»26*ALP404,IORDER»IPT*XM,CL»AA04,IERR) 
CALL ( lBl"(26*XMI.9»CLI*26,ALP406,lORDER,IPT,XM,CL»AA06*lERR) 

AA= A AQ4 + (AA06-AA04)»( (TR-.04)/(.06-.04) ) 

GO TO 400 

20 CALL I B I ( 26 » XMI , 9 » CLI ♦ 26* AL p 406 * I ORDER* IPT* XM ,CL» AA06 * I ERR) 
CALL IBI (26»XMI»9»CLI»26*ALP409* IORDER*IPT»XM»CL»AA09* IERR) 

AA = AA06 ♦ (AA09 - AA06)*((TR - • 06 ) / ( • 09- . 06 ) ) 

30 CALL IBI ( 26 ♦ XMI *9 *CLI *26* ALP409 » IORDER* IPT* XM,CL» AA09 » IERR) 

CALL I B I ( 26» XMI »9*CLI *26* ALP412* IORDER* IPT *XH*CL* AA12 * IERR) 
AA=AA09+ (AA12-AA09) * ( ( TR- . 09 ) / ( . 1 2- . 09 ) ) 

GO TO 400 „„„ 

40 CALL IBI (26* XMI *9* CLI *26* ALP412* IORDER* IPT*XM»CL» AA12* IERR) 

CALL ^ IBI (26*XMI *9* CLI *26* ALP415* IORDER* IPT* XM*CL*AA 15*1 ERR) 
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AA=AA12* (AA15-AA12) *( ( TR- . 1 2 ) / ( . 1 5- . 1 2 ) ) 

60 TO *00 

50 CALL IBI (26*XMI,9*CLI*26»ALP415»l0R0ER»IPT»XM,CL»AA15t IERR) 
IPT (1) = -1 

CALL IBI (26»XMI»9*CLI«2f'»ALP4lB, IORDER» IPT ♦ XM , CL ♦ A A 1 R , TERR) 
AA=AA15* (AA18-AA15) * ( (TR-. 15) / ( . 18-. 15) ) 

GO TO 400 

60 CALL IBI (26*XMI,9»CLI»26»ALP418,I0RDER. IPT f XM , CL ♦ AA 1 8 , 1 ERR ) 
IPT (1) = -1 

call IBI <26»XMI.9.CLI»26*ALP421»I0RDER»IPT.XM,CL»AA21,IERR) 
Aa = AA18* ( AA21-AA18) *( (TR-,18) /( .21-.18) ) 

60 TO 400 

70 CALL IBI (26«XMlf9*CLIf26,AL p 421f IORDER. IPTfXM.CLfAA21.lERR) 
A A=AA2l 
400 CONTINUE 
IPT < 1 ) =-l 


IF 

(TR 

.LT. 

.04) 

GO TO 

91 






IF 

(TR 

. GE • 

.04 

.AND. 

TR 

.LT. 

.06) 

GO 

TO 

11 

IF 

(TR 

.GE. 

.06 

.AND. 

TR 

• LT. 

.09) 

GO 

TO 

21 

IF 

(TR 

.GE. 

.09 

.AND. 

TR 

. LT . 

.12) 

GO 

TO 

31 

IF 

(TR 

.GE. 

.12 

.AND. 

TR 

.LT. 

. 15) 

GO 

TO 

41 

IF 

(TR 

.GE. 

.15 

.AND. 

TR 

. LT . 

.18) 

GO 

TO 

51 

IF 

(TR 

.GE. 

.18 

.AND. 

TR 

.LT. 

.21) 

GO 

TO 

61 

IF 

(TR 

.GE. 

.21) 

GO TO 

71 







91 Call IBI (5. CLI I. 26.XMI ,5.CD404f IORDER. IPT. CLfXM.CDRG04. IERR) 
CO=CDRG04 
WRITE (6.201) TR 

201 FORMAT ("OTHICKNESS R AT I0=* . F5 . 3 . * IS OUT OF RANGE. 

&*/* THE VALUES FOR T/C=.04 HAVE BEEN RETURNED* ) 

GO TO 250 

11 CALL I B I (5»CLII»26,XMI,5.Cn404»IORDER,lPT.CL.XM.CDRG04,IERR) 
IPT ( 1 ) =-l 

Call I«I (5,CLII.?6,XMI.5.Co406,IORDER.IPT.CL.XM»CDpG 06.IERR) 
CD = CDR604 ♦ (CDRG06-CDRG04) * ( (TR-. 04) / ( . Ob-. 04) ) 

GO TO 250 

21 CALL IBI (5.CLI I.26.XMI .5.C0406.IORDER. I p T .CL.XM.CDRG06. IERR) 
IPT ( 1 ) =-l 

CALL IBI (5.CLII.26.XMI,5,C0409,IORDER.IPT.CL.XM,CDRG09.IERR) 
CD=CDRG06 ♦ (CDRG09 - CDRG06 ) * ( ( TR-. 06 ) / ( . 09-. 06 ) ) 

GO TO 250 

31 CALL IBI (5.CLI I. 26.XMI .5.CD409, IORDER. IPT. CL.XM.CDRG09, IERR) 
IPT <1)=-1 

CALL IBI (5fCLIIf26fXHI.5,CD412.l0R0ER,lPTfCLfXMfCDRG12f IERR) 
CD=CDRG09* ( CORGI 2-CORG09) * ( ( TR- . 09 ) / ( . 12- . 09 ) ) 

GO TO 250 

41 CALL IBI (5.CLI I. 2b. XMI ,5. CD412t IORDER. IPT.CL.XMt CORGI?. IERR) 
IPT ( 1 ) = - 1 

CALL IBI (5fCLII.26f XMI, 5, CD4l 5 » I ORDER ♦ I . CL ♦ XM . CORGIS. IERR) 
CD=CDRG1? ♦ (C0RG15-CDRG12) * ( ( TR- . 1 2 ) / ( . 1 5- . 1 2 ) ) 

GO TO 250 

51 CALL IBI (5. CLIIf2B*XMl.5fC04l5. IORDER. IPT. CL.XM.C0RG15. IERR) 
IPT (1)=-1 

CALL IBI (5fCLIIf?6fXMlf5.CO418.I0R0ER,lPTfCLfXM.C0RG18f IERR) 
CD=CDRG1S* (CORGI 8-C0RG15) *( ( TR-. 1 5 ) / ( . 1 8- . 1 5 ) ) 

GO TO 250 
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61 CALL IBI (5»CLII»26»XMI»5»CD418» I ORDER »IPT»CL»XM»CDRG18»IERR) 
IPT ( 1 ) =- 1 

CALL IBI (5»CLII,26,XMI,5,CD421»I0RDER,IPT,CL»XM»CDRG21»IERR) 
CD=CDRG18MCDRG21-CDRG18)*( (TR-. 18) / ( .21-. 18) ) 

GO TO 250 

71 CALL IBI (5,CLII,26,XMI,5,CD421,I0RDER,IPT,CL,XM»CDRG21,IERR) 
CD=CDRG21 

IF (TR .GT. .21) WRITE ( 6» 204) TR 
204 FORMAT <*0THICKNESS RATI0=*,F5.3,* IS OUT OF RANGE. 

8,*/* THE VALUES FOR T/C=.21 HAVE BEEN RETURNED.*) 

250 IF ( CL .GT. .8) GO TO 251 
RETURN 

251 CALL COMPUT(D,XM,ALT,COR,TR,AA,CDT,CL,CD,CLDES) 

CD=CDT 

RETURN 

END 


SUBROUTINE ALR05 (XLD ,CL, CD ,XM* AA , I KEY , TR , CLOES , ALT . COR , D) 


THIS SUBROUTINE IS DESIGNED TO COMPUTE THE AIRFOIL 
CHARACTERISTICS FOR A 16 SERIES AIRFOIL WITH A GIVEN CAMBER. 

THIS SUBROUTINE RELATES CL, CD, CL/CD, MACH, T/C, AND ALPHA. 

IT REPRESENTS THE DATA OF A 16-5XX AIRFOIL. 

XM=RELATIVE MACH NO. AT BLADE ELEMENT 
AA=ANGLE of attack IN degrees 
IKEY i: CL=CL (MACH* ALPHA t T/C) 

: CD=CD(MACH.CL*T/C) 

:XLD=CL/CD 

IKEY2: ALPH A= ALPHA (MACH. CL ♦ T/C) 

: CD=CO(MACH.CL*T/C) 

: XLD=CL/CD 
TR=T/C 


DIMENSION I ORDER (2) »IPT(2) * ALP504 ( 26. 9) , ALPS06 (26.9) , 
8. ALP509(26.9) » ALP512 (26,9) , ALP61 5 ( 26 , 9 ) , ALPS 1 8 ( 26 , 9 ) , 
& ALP521 (26,9) tCLI (9) , XMI (26) ,ALPI (7) ,CL504(7,26) » 

& CL506(7,26) »CL509(7,26) ,CL512(7,26) ,CL515(7,26) » 

8. CL5 18(7,26) »CL521 (7.26) *CD504(5,26) ,CD506(5,26) . 

8. CD509 (5,26) *CD512 (5,26) ,CD515 (5,26) , COB 18 (5,26) , 

& CD521 (5,26) *CLII (5) 

DAT A ( ( CL504 ( I * J) ,J=lt26) ,1 = 1,4)/ 


1 

-.046, 

-.056, 

-.062, 

-.067, 

-.072, 

-.075, 

-.078, 

-.081, 

-.082, 

1 

-.082, 

-.077, 

-.068, 

-.059, 

-.053, 

-.084, 

-.163, 

-.277, 

-.327, 

1 

-.289, 

-.248, 

-.213, 

-.195, 

-.223, 

-.284, 

-.302, 

-.302, 


2 

.177, 

.185* 

.199, 

.210, 

.225, 

.233, 

.241, 

.249, 

.263, 

2 

.278, 

.292* 

.307, 

.310, 

.269, 

.177, 

.086, 

.004, 

-.009, 

2 

.028, 

.074, 

.112, 

.121, 

.096, 

-.041, 

-.138, 

-.154, 
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3 

• 407* 

.431, 

.453, 

.464, 

.478* 

.485, 

.492* 

.499, 

.509, 

3 

• 51 9 » 

.530, 

.539, 

.529, 

.469, 

.396, 

.322* 

.256, 

.230, 

3 

• 259 * 

.309, 

.345, 

.354, 

• 328 * 

.148, 

.012* 

-.033, 


4 

• 620 » 

.651, 

.676, 

.693, 

.709, 

.717, 

.730 » 

.742* 

.754, 

4 

• 77 0 » 

.779* 

.767, 

.728, 

.665* 

• 602* 

.539* 

.482, 

.449, 

4 

• 479 * 

.528* 

.573, 

.586, 

.550* 

.314, 

.139* 

.075/ 


OATA( (CL504(I» 

J) » J= 1 » 

26) ,1=5*7)/ 





5 

• 755 ♦ 

.807* 

.845, 

.871, 

.898, 

.916, 

.935* 

.954, 

.974, 

5 

• 996 * 

1,000* 

.973, 

.920, 

• 866* 

.812, 

.759* 

.711, 

.687, 

5 

.723* 

.775* 

.820, 

.828* 

.788, 

.477, 

.265* 

.182, 


6 

.912* 

.971 * 

1.016, 

1.042, 

1.069, 

1.086, 

1.102* 

1.119, 

1.134, 

6 

1.141* 

1.118, 

1.078, 

1.037, 

.995, 

.953, 

.911, 

.869, 

.848, 

6 

• 880 » 

.923, 

.967, 

.985, 

.946, 

.614, 

.389, 

.290, 


7 

1.069, 

1.123, 

1.163, 

1.192, 

1.229, 

1.256, 

1.273, 

1.289, 

1.307, 

7 

1.289, 

1.250* 

1.212, 

1.169, 

1.126, 

1.083, 

1.040* 

1.002, 

.983, 

7 

1.022* 

1.074, 

1.115, 

1.127* 

1.089, 

.757, 

.512* 

.406/ 


OAT A ( ( CL50S ( I ♦ 

J) »J = 1» 

26) ,1=1,4)/ 





1 

.002* 

-.006* 

-.018, 

— . 026, 

-.037, 

-.043, 

- • 050 » 

-. 064, 

-.088, 

1 

-.121 » 

-. 168, 

-.216, 

-.273* 

-.339, 

—.406, 

-.472* 

-.486, 

-.440, 

1 

-.383* 

-.326, 

-.315, 

-.315, 

-.316, 

-.316, 

-.317, 

-.318, 


2 

.210, 

.214, 

.221, 

.224, 

.235, 

.240* 

.244, 

.248, 

.248, 

2 

.242* 

.212, 

.146, 

.069, 

-.008, 

-.084* 

- • 160* 

-.185, 

-.146, 

2 

-.092, 

-.038, 

-.021 , 

-.039, 

-.047, 

-.090, 

-.118* 

-.123* 


3 

.413, 

• 446 , 

.474, 

.489, 

.504, 

.513* 

.524* 

.534, 

.544, 

3 

. 554 , 

.537 » 

.463, 

.384, 

.304, 

.225, 

. 146* 

.125, 

.166, 

3 

.223, 

.278, 

.287, 

.266, 

• 240, 

.099, 

.008* 

-.012, 


4 

.625, 

. 667 , 

.697, 

.713, 

.731, 

.742, 

• 754 » 

• 766 , 

.778, 

4 

.751, 

.717, 

• 664 , 

.612, 

.539, 

.462, 

.392* 

.377, 

.414, 

4 

.469, 

.522* 

.532, 

.503, 

• 466, 

.249, 

.119* 

.093/ 


DAT A ( ( CL506 ( I * 

J) , J=l, 

26) ,1=5 

,7)/ 





5 

.746, 

.804, 

.847, 

.873, 

.910, 

.929, 

.951, 

.974, 

.963, 

5 

.924, 

.868, 

.812, 

.756, 

.700, 

• 644 , 

.596, 

.579, 

.610, 

5 

.665, 

.718, 

.738, 

.704, 

.655, 

.392, 

.246* 

.206, 


6 

.906, 

.964, 

1.010, 

1.039, 

1.070, 

1.091, 

1.105* 

1.091, 

1.054, 

6 

1.006, 

.959, 

.911, 

.863, 

.815, 

.768, 

.723* 

.709, 

.746, 

6 

.798, 

• 847 , 

.867, 

.836, 

.793, 

.535* 

.375, 

.313, 


7 

1.052* 

1.115, 

1.164, 

1.203, 

1.229, 

1.221* 

1.207, 

1.180, 

1.148, 

7 

1.106, 

1.065, 

1.023, 

.981, 

.940, 

.900* 

.862, 

.858, 

.904, 

7 

.959, 

1.013, 

1.020, 

.985, 

.937, 

.682, 

.517* 

.428/ 


DATA ( ( CL509 ( I » 

J) , J=1 , 

26) , 1=1 

*4)/ 





1 

.018, 

.016, 

.015, 

.015, 

.015, 

.017, 

.024, 

.011, 

-.029, 

1 

-.078* 

-.135, 

-.203, 

-.271, 

-.346, 

-.428, 

-.458, 

-.392, 

-.298, 

1 

-.228, 

-.224, 

-.229, 

-.235, 

-.240, 

-.274, 

-.295, 

-.296, 


2 

.233, 

.254, 

.268, 

.277, 

.285, 

.297, 

.310, 

.320, 

.308, 

2 

.276, 

.19t>* 

.110, 

—.000* 

-.137* 

-.237, 

-.236, 

-.168, 

—.084, 

2 

-.041* 

-.044, 

-.057, 

-.069, 

-.079, 

-.120, 

-.142* 

-.158, 


3 

.435* 

.457, 

.468, 

.483, 

.499, 

. 506 , 

.514* 

.520, 

.519, 

3 

.490* 

.404* 

.287, 

.170, 

.053, 

-.027, 

-.019, 

.032, 

.102, 

3 

.155* 

.159, 

.145, 

.133, 

• 121, 

.054, 

.003* 

-.035, 


4 

♦ 605* 

• 642 , 

.672, 

.688, 

.712* 

.723, 

.735* 

.736, 

.707, 

4 

.616* 

.522* 

.429, 

.335, 

.241, 

.194, 

• 204* 

.264, 

.338, 

4 

.378* 

.372, 

.357, 

.341, 

.325, 

.226* 

.149* 

.090/ 



DATA ( ( CL509 < I » 

J) » J=1 , 

26) ,1=5 

*7)/ 





5 

.749, 

.806, 

.849, 

.870, 

.895, 

.908, 

.893* 

.863, 

.789, 

5 

.714* 

.640, 

.565, 

.490, 

.416, 

.366, 

.375* 

.434, 

.508, 
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5 • 552 » 

.548, 

.529, 

6 .870* 

.932, 

.988, : 

6 • 830 » 

.764, 

.699, 

6 • 7 1 3 » 

.697 , 

.677, 

7 1.001* 

1 .052, 

1.110, 

7 .925* 

.868, 

.807, 

7 .836* 

.824, 

.801, 

0 AT A ( (CL512(I»J) *J=1»2' 

1 .014, 

.012, 

.013, 

1 -.166, 

-.273, 

-.387, 

1 -.210, 

-.211* 

-.212, 

2 .195, 

.210, 

.224, 

2 .074, 

— • 0 2 5 , 

-.162, 

2 -.089, 

-.091 » 

-.092, 

3 .363, 

.383, 

.399, 

3 .268, 

.152, 

-.011, 

3 .042, 

.029, 

.021, 

4 .537, 

.572, 

.600, 

4 .392, 

.288, 

.167, 

4 .245, 

.238, 

.226, 

DATA ( (CL512 ( I * J) , J=l,2 

5 .691, 

.732, 

.761, 

5 .477, 

.386, 

.295, 

5 .415, 

.403, 

.390, 

6 .804, 

.862, 

.915, 

6 .622, 

.543, 

.465, 

6 .585, 

.570, 

.556, 

7 .913, 

.978, 

1.041* 

7 .717, 

.638, 

.553, 

7 .683, 

. 669 , 

. 655, 

0 AT A ( (CL515 ( I » J) , J a l»i 

1 .028, 

.041 , 

.048, 

1 -.308, 

- . 467 , 

-.540, 

1 -.302, 

- »30l , 

-.301, 

2 .155, 

.179, 

.192, 

2 -.177, 

-.343, 

- .430 , 

2 -.200, 

-.200, 

-.199, 

3 .312, 

.321 , 

.326, 

3 .044. 

-.102, 

-.308, 

3 -.051, 

-.049, 

-.046, 

4 .492, 

.510, 

• 524, 

4 .193, 

.041 , 

-.124, 

4 .150, 

.145, 

.140, 

DATA ( (CL515(I»J) »J=1» 

5 .636, 

.668, 

• 68 1 , 

5 .314, 

.205, 

.090, 

5 .342, 

.334, 

.327, 

6 . 734 , 

.779, 

.813, 

6 .397, 

.288, 

• 176, 

6 .440, 

.438, 

.424, 

7 .835, 

.871 ♦ 

.919, 

7 .49?. 

.364, 

.253, 

7 .517, 

.509, 

.502, 


D AT A ( (CL51Q (I ,J) * J=l» 
1 054, -.054, -.060* 


.510, 

.490, 

.371, 

1.018, 

1.054, 

1.046, 1 

.633, 

.567, 

.534, 

.655, 

. 634 , 

.503, 

1.158. 

1.159, 

1.137, 1 

.748, 

.689, 

. 644 , 

.778, 

.754, 

.618, 

6) ,1 = 1,4)/ 
.016, .020, 

.021 , 

-.510, 

-.547, 

-.520, - 

-.213, 

-.215, 

-.225, - 

.234, 

.245, 

.247, 

-.327, 

-.403, 

-.364, - 

-.094, 

-.095, 

-.105, - 

.407, 

.418, 

.426, 

-.157, 

-.192, 

-.147, - 

.017, 

.012, 

-.013, - 

.614, 

.628, 

.631, 

. 050 , 

.005, 

• 045 ♦ 

.216, 

.206, 

.156, 

!6) ,1=5,7)/ 
.781, .795, 

.782, 

.214, 

.184, 

.222, 

.377, 

. 364 , 

.294, 

.950, 

.958, 

.921, 

.393, 

.347, 

.390, 

.542, 

.528, 

.441, 

1.075, 

1.052, 

1.012, 

.478, 

.449, 

.493, 

.641, 

.627, 

.545 , 

?6) ,1=1,4)/ 
.051, .053, 

.043, 

-.561, 

- . 525 , 

-.466, • 

-.301 , 

-.300, 

-.298, ■ 

.201, 

.206, 

.189, 

-.446, 

-.416, 

-.342, ■ 

-.199, 

-.198, 

-.195, ■ 

.329, 

.335, 

.329, 

-.352, 

-.299, 

-.195, 

-.044, 

-.041 , 

-.041, 

.533, 

.543, 

.525, 

-.145, 

-.085, 

.034, 

.136, 

.131, 

.106, 

26) ,1=5,7) / 

. 694 , , 689 , 

• 664 , 

.066, 

.113, 

.230, 

.319, 

.312, 

.266, 

.836, 

.822, 

.771 , 

.164, 

.216, 

.32<>» 

.416, 

.408, 

.360, 

.960, 

.930, 

.865, 

.233, 

.286, 

.395, 

.494, 

.486, 

.443, 

26) , 1 = 1,4) / 

-.070, -.124, 

-.203, 


.278, 

.190, 


.027, 

.962, 

.896, 

.539, 

.604, 

.686, 

.400, 

.301, 


.102, 

1.043, 

.984, 

• 663 » 

.732, 

• 813, 

• 505 , 

.409/ 


.014, 

-.013, -.068, 

• 404, ■ 

-.259, -.210, 

.238, 

-.252, 


.235, 

.211, 

.154, 

.236* 

-.122, -.088, 

.116, 

-.128, 


.433, 

.418, 

.373, 

.057, 

.023, 

.049, 

.024, 

-.029, 


.622, 

.568, 

.475, 

.134, 

.234, 

.255, 

.113, 

.086/ 


• 743 , 

.650, 

.567, 

• 307 , 

.391, 

.423, 

.239, 

.193, 


.859, 

.780, 

.701, 

.483, 

.574, 

.599, 

.362, 

. 305 , 


.958, 

.882, 

.799, 

.594, 

.683, 

.696, 

• 474 , 

.412/ 


.001, 

-.069, 

-.177, 

-.386, 

-.324, 

-.304, 

-.297, 

-.295, 


.155, 

.097, 

-.005, 

-.257, 

-.211, 

-.202, 

-.200, 

-.207, 


.309, 

.255, 

.185, 

-.085, 

-.057, 

-.054, 

-.039, 

-.037, 


.496, 

.413, 

.328, 

.137, 

.157, 

.154, 

.085, 

.073/ 


.605, 

.532, 

.423, 

.328, 

.357, 

.349, 

.220, 

.187, 


.719, 

.616, 

.507, 

.428, 

.455, 

.448. 

.328, 

.295, 


.792, 

.719, 

. 620 , 

.496, 

.526, 

.524, 

.407, 

.374/ 


—.307, 

-.425, 

-.538, 



1 

- # 628 » 

-.704, 

-.754, 

-.760, 

- . 724 , 

-.620, 

-.483, 

-.424, 

-.422 

1 

-♦422? 

- • 422 , 

-.422, 

-.422, 

— .421 , 

-.421, 

-.420, 

-.419, 


2 

.098, 

• 1 0 1 1 

.107, 

.119, 

.077, 

.004, 

-.103, 

-.239, 

-.375 

2 

- . 499 » 

- • 580 , 

-.629, 

-.613, 

-.541, 

-.433, 

-.322t 

-.304, 

-.303 

2 

-•303» 

-.302, 

-.302, 

-.302, 

-.301, 

-.299, 

-.296, 

-.294, 


3 

.249, 

.261 , 

.272, 

.278, 

• 222, 

.157, 

.061, 

-.049, 

-.182 

3 

-.351, 

-.475, 

-.503, 

-.462, 

-.330, 

-.199, 

-.151, 

-.147, 

-.146 

3 

-.147, 

-• 14B, 

-.148, 

-.149, 

-.150, 

-.152, 

-.149, 

-.146, 


4 

.424, 

.436, 

.449, 

.456, 

.397, 

.310, 

.223, 

.120, 

-.002 

4 

-.132, 

-.262, 

-.310, 

- . 285 , 

-.139, 

. 000 , 

.045, 

.045, 

.043 

4 

.038, 

.034, 

.029, 

.024, 

.020, 

.007, 

—.005, 

-.018/ 


DATA( ( CL51 8 ( 1 ♦ 

J) , J=1 , 

26) ♦ 1=5 

,7)/ 





5 

.565, 

.585, 

.606, 

.607, 

.552, 

.484, 

.407, 

.307, 

.196 

5 

.004, 

—.086, 

-.126, 

-.094, 

.060, 

.193, 

.235, 

.229, 

.223 

5 

.217, 

.211 , 

.206, 

.200, 

.195, 

.162, 

.130, 

.097, 


6 

.674, 

.708, 

.754, 

.766, 

.661, 

.572, 

.480, 

.387, 

.276 

6 

.161, 

.071, 

.023, 

.062, 

.266, 

.395, 

.435, 

.424, 

.414 

6 

.404, 

.394, 

.384, 

.374, 

. 364 , 

.309, 

.257, 

.209, 


7 

.779. 

.824, 

.092, 

.895, 

.767, 

.672, 

.573, 

.455, 

.321 

7 

.200, 

.104, 

.067, 

.102, 

.306, 

• 443, 

.482, 

.473, 

.461 

7 

.450, 

.439, 

.428, 

.417, 

.406, 

.349, 

.292, 

.242/ 


DATA( (CL521 (It 

J) . J=1 , 

26) ,1=1 

,4) / 





1 

-.102, 

-.085, 

-.069, 

-.063, 

-.070, 

-.101 , 

-.322, 

-.463, 

-.603 

1 

- . 744 , 

-.789, 

-.758, 

-.644, 

-.471, 

-.393, 

- . 36 1 , 

-.369, 

-.377 

1 

-.384, 

-.392, 

-.400, 

-.405, 

-.409, 

-.429, 

- . 438 , 

-.436, 


2 

.048, 

.070, 

.001, 

.083, 

.065, 

-.045, 

-.199, 

-.352, 

-.505 

2 

-.605, 

-.644, 

-.582, 

-.442, 

-.302. 

-.229, 

-.221, 

-.229, 

-.237 

2 

-.245, 

-.251 , 

-.257, 

-.263, 

-.269, 

-.298, 

-.306, 

-.315, 


3 

.169, 

.188, 

.207, 

.221, 

.207, 

.128, 

-.025, 

-.177, 

-.330 

3 

-.447, 

-.493, 

-.454, 

-.297, 

-.155, 

-.111, 

-.115, 

-.121, 

-.127 

3 

-.133. 

-.140, 

-.146, 

-.152, 

-. 158, 

-.104, 

-.202, 

-.211, 


4 

.329, 

.350, 

.370, 

.381, 

.352, 

.268, 

• 106, 

- . 055 , 

-.216 

4 

-.349, 

- . 394 , 

-.362, 

-.203, 

-.052, 

—.000, 

-.013, 

-.018, 

-.024 

4 

-.029, 

-.034, 

-.040, 

- • 045 , 

-.051, 

-.084, 

1 

• 

J— • 

O 

ro 

-.119/ 


D AT A ( (CL521 (It 

J) t J= 1 , , 

26) , 1 = 5 

,7) / 





5 

.486, 

.499, 

.519, 

.533, 

.492, 

.403, 

.259, 

.115, 

-.029 

5 

-.141, 

-.189, 

-.143, 

-.003, 

.145, 

.187, 

.186, 

.178, 

.170 

5 

.162, 

. 154, 

.146, 

.137, 

.129, 

.092, 

.063, 

.037, 


6 

.578, 

.609, 

.640, 

.653, 

.588, 

.464, 

.332, 

.199, 

.067 

6 

-.044, 

-.090, 

-.058, 

.111, 

.248, 

.298, 

.292, 

.284, 

.276 

6 

.268, 

.260, 

.253, 

.245, 

.237, 

.194, 

.172, 

.149, 


7 

.686, 

.737, 

.781, 

.778, 

.669, 

.531, 

• 392 1 

.254, 

.115 

7 

.015, 

-.027, 

.014, 

.175, 

.313, 

.352, 

.348, 

.338, 

.328, 

7 

.319, 

.311, 

.304, 

.297, 

.290, 

.252, 

.230, 

.207/ 


DAT A ( ( ALP504 ( J 

»N) ,N=1 

,9) ,J=1 

» 13) / 





L 

-7.17, 

-5.38, 

-3.59, 

— 1.80, 

— .06, 

1.81, 

4.57, 

7.12, 

9.67 

L 

-6.85, 

-5.20, 

-3.54, 

-1.88, 

-.25, 

1.54, 

3.91, 

6.38, 

9.01, 

L 

-6.59, 

-5.06, 

-3.52, 

-1.99, 

-.42, 

1.32, 

3.47, 

5.81 , 

0.50, 

L 

-6.40 , 

-4.96, 

-3.52, 

-2.07, 

-.50, 

1.19, 

3.20, 

5.51, 

8.11, 

f. 

-6.21, 

-4.86, 

-3.52, 

-2.17, 

— . 62 , 

1.06, 

2.96, 

5.19, 

7.64, 

6. 

-6.11, 

-4.81 , 

-3.51, 

-2.21, 

-.67, 

.99, 

2.83, 

4.99, 

7.34, 

& 

-6.02, 

-4.76, 

-3.51, 

-2.26, 

-.73, 

.91, 

2.68, 

4.78, 

7.15, 

5. 

-5.93, 

-4.72, 

-3.51, 

-2.30, 

-.79, 

.83, 

2.55, 

4.56* 

6.95 

& 

-5.84, 

-4 . 68 , 

-3.52, 

-2.37, 

-.89, 

.74, 

2.42, 

4.33, 

6.76 

& 

-5.77, 

-4.66, 

-3.54, 

-2.43, 

-.99, 

.65, 

2.27, 

4.06, 

6.80, 
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& -5.75* -4.67* -3.58* -2.50* 
& -5.77* -4.70* -3.64* -2.57* 
& -5.85* -4.76* -3.68* -2.60* 


6 

& 

& 

h 

& 

8 . 

8 . 

8» 

8 . 

8 . 

8 . 

8 , 

8, 


-6.16* 

-6.42* 

-5.90* 

-4.88* 

-4.46* 

-4.70* 

-4.94* 

-5.15* 

-5.30* 

-5.11* 

-4,95* 

-5,20* 

-5.32* 


-4,91* 

-4.89* 

-4.30* 

-3.45* 

-3.20* 

-3.44* 

-3.70* 

-3.92, 

-4.03* 

-3.86* 

-3.31 * 

-2.76, 

-2.62* 


-3.67 . 
-3.36* 
-2.69, 
-2.03, 
-1.92, 
-2.18* 
-2,46* 
-2.69, 
-2.77, 
- 2 . 60 , 
-1.57, 
-.16, 
.61, 


-2.43, 
-1.79, 
-1.03, 
-.44, 
-.25, 
-.51, 
-.91, 
-1.24, 
-1.32, 
- 1 . 10 * 
.63, 
2.97, 
4.33, 


1*09, 

.56, 

2.19, 

4.00, 

7.24, 

1.20, 

.54, 

2.32, 

4.51, 

7.82, 

1.18, 

26)/ 

.71, 

2.75, 

5.37, 

8.47/ 

-.69, 

1.34, 

3.34, 

6.08, 

9.13, 

.04, 

1.98, 

3.89, 

6.72, 

9.80, 

.72, 

2.55, 

4.54, 

7.38, 

10.48, 

1.27, 

3.03, 

5.13, 

7.97, 

10.98, 

1.55, 

3.27, 

5.40, 

8.25, 

11.21, 

1.28, 

2.99, 

4.98, 

7.69, 

10.51, 

.85, 

2.58, 

4.34, 

7.02, 

9.67, 

.48, 

2.22, 

3.84, 

6.45, 

9.15, 

. 40 , 

2.12, 

3.77, 

6.21, 

9.03, 

.65, 

2.42, 

4.15, 

6.76, 

9.55, 

3.06, 

5.80, 

8.60, 

11.40, 

14.20, 

6.18, 

9.43, 

12.68, 

15.93, 

19.19, 

7.90, 

11.34, 

14.79* 

18.24, 

21.69/ 


.DATA ( ( ALP506 ( J * N ) ,N=1 *9) » J=1 » 13) / 


& 

8 . 

8 , 

8 . 

8 . 

8 . 

8 . 

6 

8 . 

8 . 

8 . 

8 . 

8 . 

C 

& 

& 

8 , 

8 . 

8 . 

8 . 

8 , 

8 . 

8 . 

8 , 

& 

8 , 

8 . 

8 . 

8 > 

8 . 

8 . 

8 . 

8 . 

8 . 

6 

8 , 


-7.87, 
-7,58* 
-7.20, 
-6,99* 
-6 • 67 , 
-6.52, 
-6.38, 
-6,15* 


-5.94, 
-5.76, 
-5.52* 
-5.39, 
-5.20, 
-5.il* 
-5.02, 
-4 . 87 , 


-4.02, 
-3.95, 
—3 • 85 , 
-3.79, 
-3.73, 
-3.70, 
-3.66, 
-3.59, 


- 2 . 10 , 

-2.13, 

-2.19, 

-2.19, 

-2.26, 

- 2 . 28 , 

-2.30, 

-2.31, 


-5.86, 

-4 • 6 l , 

-3.48, 

-2.29, 

-5.54, 

-4.44, 

-3.33, 

-2.23, 

-5.22, 

-4.17, 

-3.12, 

-2.06, 

-5.02, 

-3.91, 

-2.81, 

-1.66, 

-4.74, 

-3.57, 

-2.40, 

-1.17, 

)ATA ( (ALP506< J, 

N) »N=1 , 

9) *J=1< 

-4.37, 

-3, 16, 

-1.95, 

— . 67 , 

-3.96, 

-2.72, 

-1.46, 

— .16, 

-3.54, 

-2.26, 

-.95, 

.44, 

-3.43, 

-2.10* 

-.81* 

.60, 

-3.73, 

-2.37, 

-1.06, 

.27, 

-4.12, 

-2.74, 

-1.42, 

— . 15 , 

-4.51, 

-3.13, 

-1.76, 

-.49, 

-4,58, 

-3.22, 

-1.86, 

-.56, 

-4.62, 

-3.17, 

-1.74, 

-.43, 

-4.62, 

-3.14, 

-1.67, 

-.28, 

-4.74, 

-2.97, 

-1.05, 

1.35, 

-4.83, 

-2.82, 

-.13, 

3.28, 

-4.84, 

-2.79, 

.23, 

3.89, 

DATA ( (ALP509 ( J 

♦N) *N= 1 

,9) ,J=1 

-7.89, 

-6.03, 

-4.17, 

—2 .31, 


-7.50, 

-7.29, 

-7.17, 

-7.07, 

-6.98, 

-6.97, 

- 6 . 66 , 

- 6 . 20 , 


-5.82* 
-5.70, 
-5.64, 
-5.59, 
-5 . 55 , 
-5.57, 
-5.37, 
- 5 . 01 , 


-4.13, 

-4.12, 

-4.11, 

-4.11, 

-4.12, 

-4.17, 

-4.07, 

-3.83, 


-2.45, 

-2.54, 

-2.59, 

-2.63, 

-2.69, 

-2.77, 

-2.78, 

-2.64, 


-.13, 

-.40, 

-.58, 

-.67, 

-.77, 

-.83, 

-.89* 

-.94, 

-.97, 

-.99, 

-.84, 

-.40, 

.14, 

,26)/ 

.82, 

1.48, 

2.08, 

2.23, 

1.89, 

1.44, 

1 . 00 , 

.92, 

1.13, 

1.42, 

4.11, 

6.35, 

7.51, 

,13)/ 

-.35, 

-.56, 

-. 68 , 

-.81, 

-.93, 

- 1 . 01 , 

- 1 . 12 , 

- 1 . 20 , 

-1.13, 


1.76, 
1.39, 
1.13, 

.99, 

.85, 

.76, 

• 66 , 
.57, 
.48, 
.47, 
.70, 
1.36, 

1.89, 

2.76, 
3.52, 
4.06, 
4.32, 

3.90, 
3.34, 
2.80, 
2 . 66 , 
2.97, 
3.42, 
6 . 88 , 
9.17, 

10.99, 

1.94, 
1 • 55 * 
1.29, 
1.14, 
.95, 
.87, 
.78, 
.74, 
. 86 , 


4.68, 

3.94, 

3.37, 

3.09, 
2.77, 
2.62, 

2.47, 
2.33, 
2.24, 
2.57, 

3.10, 
3.84, 
4.82, 

5.74, 

6.48, 

7.11, 
7.22, 
6 . 68 , 
6 . 02 , 
5.27, 

4.96, 

5.45, 
6 . 10 , 
9.61, 

11.99, 

14.47, 

4.84, 

3.93, 

3.45, 
3.23, 

2.96, 
2.83, 
2.82, 
3.01, 
4.21, 


7.29, 

6.48, 

5.88, 
5.53, 
5.13, 

4.88, 

4 • 64 , 
4.44, 

4.31, 
5.85, 
6.77, 
7.59, 

8.32, 

8.96, 

9.52, 

9.99, 

9.91, 

9.22, 

8.51, 

7.84, 

7.74, 

8 . 20 , 

8 . 88 , 

12.33, 

14.80, 

17.95, 

7.98, 

7.13, 

6 . 20 , 

5.76, 

5.32, 

5.33, 
5.60, 
6.94, 
8 . 36 , 


10.03, 

9.13, 

8.47, 
7.96, 
7,64-, 
7 . 68 , 
7 . 86 , 
8.45, 
9.11, 
9 . 88 , 

10.55, 
11.16, 
11.71/ 

12.16, 

12.55, 
12 . 86 , 
12.59, 
11.75, 
10.99, 
10.25, 
10.35, 
10.89, 
11.65, 
15.05, 
17.62, 
21.43/ 

11.04, 

10.47, 
9.48, 
8.60, 
8.78, 
9.38, 

10 . 61 , 

11 . 88 , 

12.91, 
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& 

-5.82, 

-4 • 69 , 

-3.56, 

-2.43, 

-.84, 

1.75, 

5.48 

9. 

58 , 

13.79, 

Si 

-5.60* 

-4.39, 

-3.18, 

-1.96, 

-.04, 

3.32, 

6.71 

10, 

,63, 

14.55, 

& 

-5.26* 

-3.98, 

-2.70, 

-.98, 

1,59, 

4.52, 

7,87 

11. 

57, 

15.28, 

E 

-4.95* 

-3.48, 

-2.00, 

• 3 6 f 

2.84, 

5.54, 

8.90 

12. 

.38, 

15.86/ 

DATA ( <ALP509(J 

* N ) , N= 1 

,9) » J=l4*26) / 






E 

-4.52* 

-2.60, 

-.56, 

1.56, 

3 , 82 , 

6.54, 

9.82 

13, 

>10, 

16.38, 

& 

-3 . 71 » 

-1.65, 

.24, 

2.07, 

4.40, 

7.20, 

10.84 

14. 

.47, 

18.11, 

E 

-3.48, 

-1.67, 

.17, 

1.96, 

4.30, 

6.98, 

10.21 

13, 

.44, 

16.66, 

Si 

-4.07, 

-2.29, 

-.32, 

1.45, 

3 , 6 0 , 

5.95, 

9.06 

12. 

19, 

15.31, 

& 

-4.95, 

-3.06, 

-1.10, 

.83, 

2.73, 

5.03, 

7.80 

10. 

94, 

14.09, 

fii 

-5 . 84 , 

-3.70, 

-1.58, 

.40, 

2.25, 

4.60, 

7.41 

10. 

67, 

13.92, 

Ei 

-5.96, 

-3.73, 

-1.57, 

.38, 

2.32, 

4.70, 

7.62 

10, 

77, 

13.92, 

E 

-5.99, 

-3.66, 

-1.44, 

.52, 

2.50, 

4.96, 

7.98 

11. 

21, 

14.44, 

E 

-5.99, 

-3.58, 

-1.32, 

. 64 , 

2.70, 

5.24, 

8.36 

11. 

61 , 

14.86, 

E 

-5.99, 

-3.50, 

-1.21, 

.77, 

2.91, 

5.53, 

8.77 

12. 

10, 

15.43, 

E 

-5.64, 

-3.04* 

— . 62 , 

1.70, 

4.44, 

7.69, 

11.17 

14. 

64 , 

18.12, 

E 

-5.37, 

-2.76, 

-.04, 

2.79, 

6.00, 

9.81, 

13.62 

17. 

43, 

21.24, 

E 

-5.51, 

-2.61, 

.56, 

4.18, 

7.83, 

11.54, 

15.24 

18. 

94, 

22.65/ 

DATA( (ALP512( J 

»N) * N= 1 

,9) , J=1 , 

13) / 





E 

-8.57, 

-6.36, 

-4.15, 

-1.94, 

.43, 

2.82, 

5.93 

9. 

60, 

13.27, 

E 

-8.16, 

-6.14, 

-4.12, 

-2.10, 

.18, 

2.35, 

5.05 

8. 

42, 

11.93, 

E 

-7.91, 

-6.02, 

-4.12, 

-2.23, 

• 01, 

2.00, 

4.51 

7. 

35, 

10.52, 

E 

-7.82, 

-5.98, 

-4.15, 

-2.31, 

-.08, 

1.86, 

4.22 

6. 

80, 

10.00, 

E 

-7.73, 

-5.96, 

-4.18, 

-2.40, 

-.21, 

1.73, 

4.06 

6. 

89, 

11.15, 

E 

-7 ,73» 

-5.96, 

-4.19, 

-2.42, 

-.29, 

1.70, 

4.26 

7. 

74, 

12.13, 

E 

-7.75, 

-5.94, 

-4.13, 

-2.32, 

-.33, 

1.77, 

4.98 

8. 

85, 

12.89, 

E 

-7 , 46 » 

-5.67, 

-3.88, 

-2. 10, 

-.17, 

2.71 , 

6.39 

10. 

31, 

14.24, 

E 

-6.99, 

-5.19, 

-3.39, 

-1.58, 

.53, 

4.49, 

8.02 

12. 

10, 

16.18, 

E 

-5,95, 

-4.28, 

-2.62, 

-.70, 

2.38, 

5.70, 

9.75 

1 3 • 

96, 

18.17, 

E 

-5.02, 

-3.41 , 

-1.72, 

.71, 

4.18, 

7.24, 

11.59 

15. 

93, 

20.28, 

E 

-4.12* 

-2.34, 

.12, 

2.52, 

5.24, 

9.07, 

13.61 

18. 

16, 

22.70, 

E 

-2.80, 

-.51, 

1.52, 

3.83, 

6.16, 

10.87, 

15.58 

20. 

28, 

24.99/ 

D ATA ( (A{_P512( J 

, N) ,N=1 < 

,9) , J=l4,2b) / 





E 

-1.97, 

-.08, 

1.95, 

4.20, 

7.04, 

10.96, 

14.88 

18. 

80, 

22.73, 

E 

-2.46, 

-.49, 

1.53, 

3.75, 

6.19, 

10.08, 

13.96 

17. 

84, 

21.73, 

E 

-3.95, 

-1.60, 

.60, 

2.76, 

5.06, 

8.11, 

11.71 

15. 

32, 

18.92, 

E 

—6 ,06, 

-3.14, 

-.32, 

1.68, 

4.10, 

6.48, 

10.15 

13. 

82, 

17.49, 

E 

-7.11, 

-3.84, 

-.72, 

1.47, 

3.73, 

6.02, 

10.14 

14. 

27, 

18.39, 

E 

-7,14, 

-3.83, 

-.64, 

1.56, 

3 . 82 , 

6.31, 

10.39 

14. 

47, 

18.55, 

E 

-7.15, 

-3.82, 

-.48, 

1.66, 

3.96, 

6.61, 

10.65 

14. 

69, 

18.73, 

E 

-7.13, 

-3.80, 

-.37, 

1.75, 

4.12, 

6.89, 

10.93 

14. 

97, 

19.01, 

E 

-7.14, 

-3.78, 

-.31, 

1.84, 

4.28, 

7.17, 

11.21 

15. 

25, 

19.29, 

E 

-7,08, 

-3.75, 

-.22, 

1.94, 

4.44, 

7.45, 

11.49 

15. 

54, 

19.58, 

E 

-6.92, 

-3.58, 

.15, 

2.64, 

5.44, 

9.06, 

12.90 

16. 

75, 

20.60, 

E 

-6 , 66 , 

-3.38, 

.35, 

3,38, 

6.68, 

10.25, 

13.82 

17. 

39, 

20.96, 

E 

-6.39, 

-3.16, 

.50, 

4.13, 

7.78, 

11.51, 

15.25 

18. 

99, 

22.73/ 

DATA ( (ALP515 t J»NI) ,NI=li 

• 9) » J = 1 » 

13)/ 






E-l 0 . 74 ♦ 

-7.59, 

-4.44, 

-1.43, 

.98, 

3.50, 

7.31 

11 . 

27, 

15.23, 

E- 

10.39, 

-7.49, 

-4.59, 

-1.70, 

.84, 

3.15, 

6.46 

10. 

80, 

15.15, 

E - 

10.22, 

-7.44, 

-4.67, 

-1.88, 

.75, 

2.97, 

5.80 

9. 

53, 

13.30, 

E- 

10.01, 

-7.35, 

-4.68, 

-2.01, 

.70, 

2.83, 

5.49 

8. 

65, 

11.87, 

E 

-9.92, 

-7.31, 

-4.69, 

-2.08, 

. 63 , 

2.78, 

5.67 

9. 

30, 

13.00, 

E- 

10.07, 

-7.33, 

-4.59, 

-1.84, 

.72, 

3.08, 

6.62 

10. 

87, 

15.13, 

E 

-9.21, 

-6. 61, 

-4.01, 

-1.42, 

.97, 

3.91, 

8.22 

13. 

70, 

19.18, 

E 

-7.99, 

-5,58, 

-3.17, 

-.70, 

1 . 84 , 

5.62, 

9.57 

13. 

46, 

17.34, 
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& 

-6.59* 

-4.27, 

-1.95, 

.21, 

3.52, 

7. 

65, 

11, 

.19, 

14.73 

18.27, 

& 

-5.40* 

-2.35, 

-.40, 

2.12, 

6.06, 

10. 

27, 

14, 

,48, 

18.69 

22.91, 

& 

-2.92, 

-.81 , 

1.43, 

3.94, 

8.95, 

14. 

21, 

19, 

,47, 

24.74 

30.00, 

& 

-1.51, 

1.17, 

3.16, 

6.62, 

11.82, 

17. 

01, 

22, 

,21, 

27.40 

32.60, 

& 

-1.02, 

1.47, 

3.37, 

7.04, 

12.84, 

18. 

64, 

24, 

.43, 

30.23 

36.03/ 

DATA ( (ALP515(J* 

N) , N= 1 * 

9) ♦ J=14 

,26)/ 







& 

-1.73, 

.93, 

2.86, 

5.69, 

11.26, 

16. 

97, 

22 

.69, 

28.40 

34.11, 

& 

-2.94, 

-.07, 

1.70, 

3.69, 

8.15, 

14. 

21, 

20 

.27, 

26.33 

32.39, 

& 

-4.22, 

-1.34, 

.77, 

2.66, 

5.44, 

11. 

06 , 

16 

.94, 

22.82 

28.71, 

& 

-5.35, 

-1.8&, 

.53, 

2.43, 

4.88, 

10. 

08, 

15 

.72, 

21.35 

26.99, 

& 

-5.88, 

-1.97, 

.52, 

2.47, 

5.03, 

10. 

00, 

15 

.26, 

20.53 

25.79, 

& 

-5.92, 

-2 • 0 0 , 

.51, 

2.52, 

5.18, 

10. 

16, 

15 

.35, 

20.55 

25.74, 

& 

-5.96, 

-2.00, 

.51, 

2.58, 

5.35, 

10. 

36, 

15 

.56, 

20.75 

25.95, 

& 

-5.94, 

-2 • 02 , 

.49, 

2.64, 

5.51, 

10. 

51, 

15 

.64, 

20.77 

25.90, 

& 

-5.94, 

-2.02, 

.49, 

2.70, 

5.67, 

10. 

72, 

15 

.85, 

20.97 

26.10, 

S. 

-5.96, 

-2.04, 

.48, 

2.76, 

5.83, 

10. 

92, 

16 

05 , 

21.18 

26.31, 

& 

-5.98, 

-2.10, 

.56, 

3.18, 

6.96, 

11. 

78, 

16 

• 60 , 

21.42 

26.24, 

& 

-6.12, 

-2.00, 

.63, 

3 . 7 0 , 

7.82, 

12. 

89, 

17 

.95, 

23.01 

28.08, 

& 

-6.39, 

-1.92, 

» 67 , 

4.24, 

8.66, 

13. 

72, 

18 

.78, 

23.85 

28,91/ 

DATA ( (ALP518 (J* 

N ) » N= 1 » 

9) , J=1 , 

13) / 







& 

-8.55, 

-5.92, 

-3.29, 

-.65, 

1.73, 

4. 

64, 

8 

.40, 

12.21 

16.02, 

S, 

-8.46, 

-5.88, 

-3.30, 

— . 76 , 

1.59, 

4. 

24, 

7 

.59, 

11.03 

14.48, 

& 

-8.07, 

-5 . 68 , 

-3.28, 

-.87, 

1.45, 

3. 

92, 

6 

.67, 

9.57 

12.46, 

& 

-7.49, 

-5.38, 

-3.26, 

-.98, 

1.37, 

3. 

91, 

6 

• 53 , 

9.63 

12.73, 

& 

-6.75, 

-4.76, 

-2.77, 

-.30, 

2.04, 

4. 

98, 

8 

.62, 

12.40 

16.17 , 

& 

-5.90, 

-3.97, 

-2.04, 

.56, 

3.03, 

6. 

56, 

10 

.56, 

14.56 

18.56, 

s. 

-4.91, 

-2.95, 

-.74, 

1.72, 

3.92, 

8. 

58, 

12 

.88, 

17.18 

21.48, 

& 

-3.73, 

-1.59, 

.58, 

2.86, 

6.38, 

12. 

26, 

18 

.15, 

24.03 

29.91, 

s> 

-2.31 , 

-.19, 

2.02, 

4.10, 

11.51, 

20. 

40, 

29 

.29, 

38.18 

47.07, 

& 

- . 66 , 

1.38, 

3.94, 

8.00, 

18.26, 

28. 

51, 

38 

.77, 

49.03 

59.28, 

f. 

.70, 

2.70, 

5.10, 

13.82, 

25.94, 

38. 

06, 

50 

.18, 

62.30 

74.42, 

5. 

1.07, 

3.20, 

5.69, 

14.05, 

23.14, 

32. 

23, 

41 

.32, 

50.41 

59.50, 

& 

.70, 

2.89, 

5.21, 

12.90, 

22.90, 

32. 

90, 

42 

.90, 

52.90 

62.90/ 

D AT A ( (ALP518( Jf 

N) ,N=1, 

9) , J=1 4 , 26 ) / 







& 

- . 66 , 

1.36, 

3.40, 

5.36, 

12.70, 

22. 

70, 

32 

.70, 

42.70 

52.70, 

& 

-1.72, 

-. 0 1 , 

2.00, 

4.07, 

6.21, 

14. 

54, 

22 

.88, 

31.21 

39.54, 

8. 

-2.97, 

-.57, 

1.54, 

3.63, 

5.65, 

13. 

02 » 

21 

.53, 

30.04 

38.55, 

(, 

-3.60, 

-.66, 

1.53, 

3.68, 

5.75, 

13. 

18, 

21 

.35, 

29.51 

37.67, 

S. 

-3.63, 

-. 69 , 

1 .54, 

3.74, 

5.85, 

13. 

91, 

22 

.43, 

30.94 

39.45, 

& 

-3.63, 

- ,68 , 

1.59, 

3.81, 

5.96, 

14. 

,52, 

23 

.22* 

31.91 

40.61, 

& 

-3.63, 

-.68, 

1.63, 

3.88, 

6.27, 

15. 

,16, 

24 

.04, 

32.93 

41.82, 

& 

-3.63, 

-.68, 

1.67, 

3.93, 

6.73, 

15. 

,82, 

24 

.91, 

34.00 

43.09, 

8, 

-3.63, 

— .67, 

1.72, 

4.00, 

7.21, 

16. 

,51, 

25 

.81, 

35.12 

44.42, 

& 

-3.65, 

- . 66 , 

1.76, 

4.06, 

7.71, 

17. 

,24, 

26 

• 76 , 

36.29 

45.81, 

& 

-3.66, 

-.65, 

1.91, 

4.52, 

10.55, 

20. 

,55, 

30 

.55, 

40.55 

50.55, 

& 

-3.68, 

- • 69 , 

2.07, 

5.10, 

14.17, 

25. 

,60. 

37 

.03, 

48.46 

59.89, 

& 

-3.70, 

-.73, 

2.31, 

5.84, 

17.58, 

29. 

,70, 

41 

• 82t 

53.94 

66.06/ 

DATA ( (ALP521 ( J( 

> N ) * N= 1 1 

9 ) * J= 1 < 

► 13)/ 







& 

-7.97, 

-5.31, 

-2 , 64 , 

.39, 

2.90, 

6. 

,41, 

10 

.11* 

13.81 

17.52, 

(. 

-8.06, 

-5.48, 

-2.90, 

.15, 

2.67, 

5, 

,84, 

8 

.98, 

12.11 

15.23, 

& 

-8.41, 

-5.75, 

-3 .08, 

-.11, 

2.40, 

5. 

,34, 

8 

.27, 

11.11 

13.94, 

& 

— 8 . 62 * 

-5.88, 

-3.14, 

-.30, 

2.25, 

5, 

,12, 

8 

.35* 

11.55 

14.75, 

8, 

-8.89, 

-5.93* 

-2.96, 

-.10, 

2.69, 

6. 

,30, 

11 

.23* 

16.17 

21.11, 

(, 

-7.22, 

-4.28, 

-1.48, 

1.03, 

3.96, 

10, 

, 06 , 

16 

.03* 

22.00 

27.97, 

8. 

-5.27, 

-2.02, 

.38, 

3.23, 

8.27, 

14, 

,93, 

21 

• 60 , 

28.27 

34.93, 
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& 

-2.86, -.26* 2 « 65 * 

6.04, 13.31* 

20.58, 

27.85, 

35.13, 

42.40, 

& 

-• 80 » 2.17, 4.60, 

11.54, 19.86, 

20.21, 

36.54, 

44,88, 

53.21, 

f. 

.96* 3.43* 7«49* 

14.27, 21.05, 

27.83, 

34.61, 

41.39, 

48.17, 

& 

1.88. 3.89. 8.86. 

15.21, 21.56, 

27.90, 

34.25, 

40.60, 

46.95, 

(, 

1.17* 3.48, 7.61, 

13.17, 18.72, 

24.28, 

29.83, 

35.39, 

40,94, 

& 

-1.42, 2.03, 4.05, 

8.78, 15.03, 

21.28, 

27.53, 

33.78, 

40.03/ 

OAT A ( (ALP521 ( J,N) ,N = 1 

,9) , J=14,26)/ 




& 

-3.16, -.61, 2.53, 

5.07, 10.68, 

16.83, 

22.98, 

29.14, 

35.29, 

& 

-4.09, -1.51, 2.08, 

4.23, 9.78, 

17.19, 

24.59, 

32.00, 

39.41, 

& 

-4.56, -1.60, 2.13, 

4.26, 9 . 86 , 

17.00, 

24.14, 

31.29, 

38.43, 

& 

-4.44, -1.48, 2.18, 

4.42, 10.30, 

17.70, 

25.11, 

32.52, 

39.93, 

f. 

-4.33, -1.33, 2.25, 

4.57, 10.77, 

18.46, 

26.15, 

33.85, 

41.54, 

& 

-4.23, -1.20, 2.30, 

4.72, 11.18, 

19.02, 

26.86, 

34.71 , 

42.55, 

J. 

-4.11, -1.08, 2.36, 

4.87, 11.49, 

19.33, 

27.18, 

35.02, 

42.86, 

f» 

-4.00, -.97, 2.43, 

5.01, 11.76, 

19.61, 

27.45, 

35.29, 

43.14, 

S. 

-3.93, -.86, 2.49, 

5.17, 11.96, 

19.65, 

27.35, 

35.04, 

42.73, 

?. 

-3.87, -.76, 2.57, 

5.31, 12.15, 

19.70, 

27.25, 

34.79, 

42.34, 

5. 

-3.56, -.28, 2.95, 

6.21, 13,10, 

20.00, 

26.90, 

33.79, 

40.69, 

& 

-3.42, . 04 , 3.24, 

6.97, 13.86, 

20.76, 

27.66, 

34.55, 

41.45, 

& 

-3.40, .24, 3.53, 

7.76, 14.66, 

21.55, 

28.45, 

35.34, 

42.24/ 

OAT A ( (C0504 (1 ,J) , J=l, 

26) ,1=1,5) / 





1 

.0164, .0173, .0177, 

.0179, ,0181, 

.0182, 

.0183, 

.0184, 

.0186, 

l 

.0187, .0190, .0205, 

.0231, .0282, 

.0345, 

* 

O 

4* 

O 

• 

.0445, 

.0477, 

1 

.0501, .0521, .0531, 

.0541, .0542, 

.0516, 

.0401, 

.0280, 


2 

.0093, .0090, .0088, 

.0088, .0087, 

.0087, 

.0087, 

.0087, 

.0086, 

2 

.0098, .0093, .0118, 

.0165, .0230, 

.0293, 

.0341, 

.0379, 

.0407, 

2 

.0435, .0451, .0466, 

.0474, .0482, 

.0472, 

.0418, 

.0346, 


3 

.0050, .0050, .0050, 

.0050, .0050, 

.0050, 

.0050, 

.0050, 

.0050, 

3 

.0051, .0060, .0081, 

.0125, .0182, 

.0251 , 

.0313* 

.0365, 

.0406, 

3 

.0444, .0463, .0481, 

.0499, .0512, 

.0583, 

.0639, 

.0704, 


4 

.0050, .0050, .0050, 

.0050, .0050, 

.0050, 

.0050, 

.0050 , 

.0050, 

4 

.0056, .0066, .0087, 

.0145, .0215, 

.0293, 

.0369, 

.0440, 

.0511, 

4 

.0571, .0631, .0679, 

.0720, .0761, 

.0971, 

.1109, 

.1240, 


5 

. 0123 , . 0088 , . 0072 , 

. 0069 , . 0 0 69 , 

.0069, 

. 0070 , 

. 0070 * 

.0074, 

5 

.0089, .0122, .0190, 

.0267, .0378, 

.0492, 

.0607, 

.0724, 

.0838, 

5 

.0948, .1057, .1157, 

.1239, .1322, 

. 1544, 

.1629, 

. 1672/ 


DATA ( ( CD506 ( I » J) ♦ J = 1 ♦ 

26) ,1 = 1,5)/ 





1 

.0158, .0157, .0156, 

.0156, .0155, 

.0155, 

.0155, 

.0155, 

•0155, 

1 

.0158, .0166, .0201, 

.0252, .0315, 

.0381, 

.0445, 

.0509, 

.0568, 

1 

•0610, .0639, .0666, 

.0685, .0704, 

.0645, 

.0525, 

.0385, 


2 

.0083, .0083, .0083, 

.0083, ,0083, 

.0083, 

.0083, 

.0083, 

.0084, 

2 

.0094, .0114, .0147, 

.0191, .0243, 

.0305* 

.0371, 

.0435, 

.0474, 

2 

.0514, .0547, .0574, 

.0601, .0629, 

.0668, 

.0590, 

.0453, 


3 

.0055, .0055, .0055, 

.0055, .0055, 

.0056, 

.0056, 

.0056, 

.0056 , 

3 

.0067. .0097, .0126, 

.0188, .0251, 

.0320, 

.0391. 

.0456, 

.0512, 

3 

.0558, .0592, .0623, 

.0644, .0666, 

.0742, 

.0779, 

.0779, 


4 

.0055, .0055, .0055. 

.0055, .0055, 

.0056, 

.0056, 

,0056, 

.0059, 

4 

.0077, .0110, .0157, 

.0212, .0297, 

.0409, 

.0505, 

.0579, 

.0643, 

4 

.0707, .0765, .0818, 

.0871, .0924, 

.1106, 

.1213, 

.1308, 


5 

.0128, . 0106 , .0094, 

.0094, .0094, 

.0094, 

.0095, 

.0098, 

.0149, 

5 

.0236, .0323, .0411, 

.0498, .0585, 

.0751, 

.0937, 

.10 85 , 

.1202, 

5 

.1311, .1411, .1512, 

.1605, .1694, 

.2017, 

.2196, 

.2241/ 


DATA ( (CD509 ( I » J) ,J=1, 

26) ,1=1*5)/ 





1 

•0141, .0141, .0141, 

.0141, .0141, 

.0141, 

.0141* 

.0141, 

.0144, 

1 

.0169, .0216, .0262, 

.0309, .0381, 

.0454, 

.0536, 

.0629, 

.0715, 


76 



1 . 0788 » .0853* 

.0896, .0921, .0940, 

.0940, 

.0767, 

.0541 , 

2 .0083* .008** 

.0081, .0081, .0081, 

.0081, 

.0084, 

.0088, .0100* 

2 .0127* .0164, 

.0210, .0263, .0332, 

.0404, 

,0478, 

.0557, ,0634, 

2 .0700* .0747, 

.0776, .0792, .0802, 

.0791 , 

.0706, 

• 0566 , 

3 .0058* .0059* 

.0059, .0059, .0059, 

.0059, 

.0061, 

.0066, .0084, 

3 .0121, .0165* 

.0217, .0276, .0347, 

.0425, 

.0511, 

. 0600 , .0663, 

3 .0749, .0806* 

.0847, .0873, .0887, 

.0897, 

.0890, 

.0883, 

4 ,0059* .0059* 

.0059, .0059, .0059, 

.0059, 

.0062, 

.0068, .0090, 

4 .0127* .0169, 

.0227, .0297, .0388, 

.0498, 

.0618, 

.0759, .0884, 

4 .0949* .1003, 

.1050, .1098, .1136, 

.1326, 

.1480, 

.1616, 

5 .0135* .0108, 

.0090, .0086, .0085, 

.0085, 

.0090, 

.0114, .0162, 

5 .0216* .028^* 

.0374, .0471, .0619, 

.0766, 

.0952, 

.1125, .1257, 

5 .1363* .1448, 

.1513, .1579, .1649, 

.2024, 

.2218, 

.2313/ 

DATA ( (CD512 ( I»J)»J=1»26)»I=1*5)/ 

1 .0137* .0146, .0151* .0153* .0155* 

.0163, 

.0191, 

.0223, .0286, 

1 .0371* . 0456 » 

.0540, .0670, .0804, 

.0941 , 

.1053, 

.1132, .1178, 

1 .1216* .1244, 

.1273, .1301, .1297, 

.1150, 

.0970, 

.0805, 

2 .0103* .0103* 

.0103, .0103, .0103, 

.0103, 

.0111, 

.0145, .0187, 

2 .0266, .0354, 

.0444, .0531, .0619, 

.0711, 

• 08q4 , 

.0896, .0985, 

2 .1073* .1150* 

.1223, .1264, .1293, 

.1231, 

• 1 046 , 

.0872, 

3 .0074* .0074, 

.0075, .0075, .0075, 

.0078, 

.0090, 

.0127, .0172, 

3 .0241, .0317, 

.0406, .0509, .0627, 

.0738, 

.0851 , 

.0964, .1077, 

3 .1156, .1233, 

.1309, .1363, .1395, 

.1378, 

.1264, 

.1131, 

4 .0074, .0075, 

.0075, .0075, .0076, 

.0079, 

.0089, 

.0109, .0147, 

4 .0218* .0297, 

.0404, .0522, .0670, 

.0823, 

.0984, 

.1115, .1231, 

4 .1339, .1433* 

.1527, .1605, .1662, 

.1708, 

•1676, 

.1634, 

5 .0128, .0126, 

.0124, .0124, .0126, 

.0142, 

.0173, 

.0238, .0315, 

5 .0447, .0609, 

.0786, .0945, .1102, 

.1256, 

.1411, 

.1533, .1655, 

5 .1778, .1895, 

.2005, .2115, .2225, 

.2689, 

.2951, 

.3213/ 

DAT A ( (CDS 15 (I »J) , J= 1 * 26 ) , 1 = 1 , 5) / 

1 .0138, .0206, .0240, .0257, .0274, 

.0283, 

.0297, 

.0348, .0444, 

1 .0543, .0642, 

.0751, ,0860, .0959, 

.1049, 

.1138, 

.1225, .1312, 

1 .1382, .1437, 

.1491, .1523, .1550, 

.1502, 

.1332, 

.1164, 

2 .0103, .011^, 

.0119, .0126, .0132, 

.0139, 

.0166, 

.0238, .0331, 

2 .0435, .0580, 

.0725, .0841, .0953, 

.1065, 

.1173, 

.1262, .1350, 

2 .1431, .I486, 

.1541, ,1587, .1582, 

.1514, 

.1369, 

.1220, 

3 .0093, .0094, 

.0095, .0096, .0098, 

.0106, 

.0134, 

.0209, .0287, 

3 .0431, .0575, 

.0718, .0861, .1003, 

.1117, 

.1223, 

.1329, .1435, 

3 .1520, .1574, 

.1627* .1669, .1691, 

.1703, 

.1603, 

.1515, 

4 .0094, .0100, 

.0104, .0105, .0108, 

.0119, 

.0140, 

.0181, .0 27 6 , 

4 .0417, .0570, 

.0739, .0884, .1025, 

.1166, 

.1301, 

.1427, .1552, 

4 .1651, .1739, 

.1827. .1897, .1937, 

.2040, 

.2079, 

.2061, 

5 .0138, .0142, 

.0144, .0149, .0163, 

.0174, 

.0243, 

.0399, .0587, 

5 .0793, .1003, 

.1199, .1391, .1582, 

.1758, 

.1933, 

.2082, .2194, 

5 .2306, .2418, 

.2510, .2583, .2657, 

.2763, 

.2728, 

,2676/ 

D ATA ( ( CD5 1 8 ( I , 
1 .0180, .0223, 

J) »J=1*26) ,1=1*5)/ 
.0243, .0252, .0261, 

.0272, 

.0292, 

.0389, .0549, 

1 .0750, .0911, 

.1066, .1184, .1274, 

. 1363, 

.1453, 

.1505, .1548, 

1 .1591, .1633, 

.1676, .1685, .1683, 

.1669, 

.1574, 

• 1470 , 

2 .0 158, . 0155, 

.0153, .0152, .0151, 

.0161, 

.0227, 

.0389, .0586, 

2 .0782, .0975, 

.1141, .1291, .1384, 

.1477, 

.1544, 

.1607, .1670, 

2 .1718, .1745, 

.1772, .1798, .1806, 

. 1787, 

.1712, 

.1591, 

3 .0137, .0138, 

.0139, .0140, .0146, 

.0177, 

.0237, 

.0406, .0624, 

3 .0831, .1017, 

.1174, .1306, .1437, 

.1550, 

.1629, 

.1709, ,1788, 

3 .1840, .1885, 

.1930, .1975, .2020, 

.2019, 

.1922, 

.1826, 
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4 

• 0 1 37, 

.0137, 

.0144, 

.0147, 

.0157, 

.0181, 

.0292, 

,0450, 

.0651 

4 

• 0851 * 

.1036, 

.1221, 

.1390, 

.1543* 

.1695, 

.1812, 

.1910, 

.2009 

4 

.2108* 

.2151, 

.2188, 

.2225, 

.2262, 

.2367, 

.2356, 

.2345, 


5 

.0197* 

.0239, 

.0261 , 

.0273, 

.0298, 

.0363, 

.0572, 

.0782, 

.0991 

5 

• 120 1 * 

• 1435, 

.1721, 

.1931, 

.2109, 

.2287, 

.2437, 

.2572, 

.2707 

5 • 2843 » .2913, 
DAT A ( (CD521 (I» 

.2918, .2923, 
J) , J=l,26) ,1=1, 

.2927, 

5)/ 

.2956, 

.2984, 

.3012/ 


1 

.0195, 

.0227, 

.0243, 

.0251, 

.0264, 

.0303, 

.0420, 

.0591, 

.0757 

1 

.0925* 

.1095, 

.1265, 

.1435, 

.1586, 

.1738, 

.1889, 

.2018, 

.2101 

1 

.2185, 

.2268, 

.2301, 

.2324, 

.2347, 

.2388, 

.2388, 

.2388, 


2 

.0213, 

.0230, 

.0239, 

.0243, 

.0265, 

.0351, 

.0491, 

.0649, 

.0808 

2 

.0972, 

.1136, 

.1312, 

.1496, 

.1673, 

.1819, 

.1965, 

.2097, 

.2166 

2 

.2236, 

.2305, 

.2375, 

.2443, 

.2462, 

.2533, 

.2545, 

.2557, 


3 

.0155, 

.0182, 

.0195, 

.0201, 

.0216, 

.0273, 

.0451, 

.0633, 

.0805 

3 

.0969, 

.1133, 

.1327, 

.1537, 

.1720, 

.1865, 

.2009, 

.2154, 

.2291 

3 

.2366, 

.2441, 

.2516, 

.2591, 

. 2666 , 

.2715, 

.2742, 

.2769, 


4 

.0176, 

.0201 , 

.0214, 

.0221, 

.0250, 

.0366, 

.0520, 

.0690, 

.0864 

4 

.1047, 

.1261, 

. 1474, 

.1687, 

. 1887, 

.2074, 

.2260, 

.2447, 

.2561 

4 

.2647, 

.2733, 

.2818, 

.2698, 

.2912, 

.2993, 

.2998, 

.2998, 


5 

.0241, 

.0269, 

.0283, 

.0290, 

.0338, 

.0517, 

.0739, 

.0950, 

.1188 

5 

.1459, 

.1730, 

.1989, 

.2247, 

.2472, 

.2634, 

.2797, 

.2960, 

.3123 

5 

.3239, 

.3350, 

.3462, 

.3471, 

.3467, 

.3443, 

.3420, 

.3396/ 


DATA(XMI ( J) , J= 

1,26)/. 3, .5, .6, 

.65, .7 

,.725,. 

75, .775 

* 


& 

U 

.8, .828, .85, . 
.1,1.125,1.15 

875, .9, .925, .95 
,1.3,1.45,1.6/ 

, .975, 

1.0,1.025,1.05 

f 1 • 0 75 1 


DATA(CLI ( J) , J= 

1,9) /- . 4, -.2,0. 

0, .2, . 

4, .6, .8 

,1.0,1. 

2/ 



DATA (ALP I (J) * J = l»7)/-4.0 *-2.0 »0. 0.2. 0*4.0 1 6 . 0,8.0/ 
DATA (CL 1 1 (J) »J=l,5)/0.0,.2,.4,.6,.3/ 
I0RDER(1)=I0HDER(2)=1 
IPT (1) = -1 


IF 

(IKEY .eq 

. 2) 

GO TO 

1C 

100 





IF 

(TR 

.LT. 

.04) 

GO TO 

9 






IF 

(TR 

.GE. 

.04 

.AND. 

TR 

.LT. 

.06) 

GO 

TO 

1 

IF 

(TR 

.GE. 

.06 

.AND. 

TR 

.LT. 

.09) 

GO 

TO 

2 

IF 

(TR 

.GE. 

.09 

.AND. 

TR 

• LT. 

.12) 

GO 

TO 

3 

IF 

(TR 

.GE. 

.12 

.AND. 

TR 

.LT. 

.15) 

GO 

TO 

4 

IF 

(TR 

.GE. 

.15 

.AND. 

TR 

• LT. 

.18) 

GO 

TO 

5 

IF 

(TR 

.GE. 

.18 

.AND. 

TR 

.LT. 

.21) 

GO 

TO 

6 

IF 

(TR 

.GE. 

.21) 

GO TO 

7 







9 CALL I B I (7,ALPI,26,XMI,7,CL504,IORDER,IPT,AA,XM.CLFT04,IERR) 
CL=CLFT04 
GO TO 400 

1 CALL IBI (7,ALPI,26,XMI,7,Cl 504, IORDER, IPT * AA , XM» CLFT04 , I ERR ) 
IPT ( 1 ) =-l 

CALL IBI (7,A|_PI,26,XMI,7,CL506,IORDER,IPT,AA,XM»CLFT06,IERR) 
CL=CLFT04 ♦ (CLFT06-CLFT04) *( (TR-.04) / ( .06-.04) ) 

GO TO 400 

2 CALL IBI (7,ALPI,26,XMI,7,CL506,IORDER*IPT,AA,XM»CLFT06,IERR) 
IPT (1)=-1 

CALL IBI (7,ALPI,26,XMI,7,CL509,IORDER,IPT,AA,XM»CLFT09,IERR) 
CL=CLFT06 ♦ (CLFT09 - CLFT 06 ) * ( ( TR-. 06) / ( . 09-. 06) ) 

GO TO 400 

3 CALL IBI (7»ALPIt26»XMI,7,CL509»lORDER»IPT» AA t XM*CLFT09, IERR) 
IPT ( 1 ) =-l 

CALL IBI (7»ALPI,26,XMI,7,CL51H»I0RDER.IPT» AA.XM* CLFT12. IERR) 



CL=CLFT09+ (CLFT12-CLFT09)*( (TR-. 09 ) / ( . 1 2-, 09 ) ) 

GO TO 400 

4 CALL IBI (7,ALPIt26»XMI t 7tCL512»I0R0ER,IPT,AA,XM,CLFTl2,IERR) 
IPT ( 1 ) =-l 

CALL IBI (7*ALPI»26»XMI*7»CL515*I0RDER»IPT»AA»XM»CLFT15»IERR) 
CL=CLFT12 ♦ (CLFT15-CLFT12)»( (TR-. 12) / ( . 15-. 12) ) 

GO TO 400 

5 CALL IBI (7,ALPI»26»XMI,7,CL51B,I0R0ER»IPT*AA,XM»CLFT15,IERR) 
IPT < 1 ) =-l 

CALL IBI (7*ALPl»26 t XMI.7,CL518tI0RDER, I PT ♦ AA , XM» CLFT1 8 » I ERR) 
CL=CLFT15+ (CLFT18-CLFTI5)*( (TR-. 15) / ( .18-. 15) ) 

GO TO 400 

6 CALL IBI (7.ALPI,26»XMI,7,CL518»I0RDER»IPT*AA*XM.CLFT18*IERR) 
IPT ( 1 ) =-l 

CALL IBI (7,ALPI,26»XMI,7,CL521*I0RDER«IPT*AA,XM»CLFT21,IERR) 
CL=CLFT18+ (CLFT21-CLFT18)»( (TR-. 18) / ( .21-. 18 ) ) 

GO TO 400 

7 CALL IBI {7*ALPI,26»XMI,7,CL521»I0RDER»IPT»AA»XMtCLFT21,IERR) 
CL=CLFT21 

GO TO 400 
1000 CONTINUE 

IPT ( 1 ) =- 1 


IF 

<TR 

• LT. 

.04) 

GO TO 

90 






IF 

(TR 

.GE. 

.04 

.AND. 

TR 

.LT. 

.06) 

GO 

TO 

10 

IF 

(TR 

.GE. 

.06 

.AND. 

TR 

.LT. 

.09) 

GO 

TO 

20 

IF 

(TR 

.GE. 

.09 

.AND. 

TR 

.LT. 

.12) 

GO 

TO 

30 

IF 

(TR 

.GE. 

.12 

.AND. 

TR 

.LT. 

.15) 

GO 

TO 

40 

IF 

(TR 

.GE. 

.15 

.AND. 

TR 

.LT. 

.18) 

GO 

TO 

50 

IF 

(TR 

. GE . 

.18 

.AND. 

TR 

.LT. 

.21 ) 

GO 

TO 

60 

IF 

(TR 

.GE. 

.21) 

GO TO 

70 






CALL IBI (26»XMI 

♦9.CLI 

♦ 26 

♦ ALP504* I ORDER. 

IPT.XM,CL.AA04,IERR) 


AA=AA04 
GO TO 400 

10 CALL I B I (26»XMI»9*CLI.26*ALP504,IORDER»IPT»XM,CL*AA04»IERR) 
IPT (1) = -1 

CALL IBI (26»XMI,9»CLI.26*ALP50b»lORDERtIPT*XM,CL*AA06*lERR) 
AA=AA04 ♦ (AA06-AA04)*< (TR-. 04) / ( . 06-. 04) ) 

GO TO 400 

20 CALL IBI <26*XMI»9*CLI*26,ALP506,IORDER»IPT.XM,CL»AA06,IERR) 
IPT (1) = -1 

CALL IBI (26*XMI»9»CLIt26tALP509,IOROER»IPT,XM,CL» AA09,IERR) 
AA=AA06 + (AA09 - AA06)»((TR - . 06 ) / ( . 09- . 06 ) ) 

GO TO 400 

30 CALL IBI (26»XMI,9»CLI*26*ALP509,IORDER»IPT»XM,CL»AA09tIERR) 
IPT (1) = -1 

CALL IBI <26»XMI*9*CLI»26,ALP512*I0R0ER»IPT»XM,CL*AA12,IERR) 
AA=AA09+ (AA12-AA09)*( (TR-. 09) / ( . 12-. 09 ) ) 

GO TO 400 

40 CALL IBI (26»XMI,9*CLl»26tALPB12» I0RDER»IPT»XM,CL*AA12»IERR) 
IPT (1) = -1 

CALL IBI (26»XMI»9»CLI*26tALP515,I0RDER,IPT,XM,CL»AA15*IERR) 
AA=AA12* <AA15-AA12)*( ( TR-. 12 ) / ( . 15-. 1 2 ) ) 

GO TO 400 

50 CALL IBI (26»XMI»9*CLI*26»ALP515*I0RDER»IPT»XMfCL»AA15*lERR) 
IPT (1) = -1 



CALL IBI ( 26 » XMI * 9 » CLI » 26 » ALP5 18, IORDER, IPT* XM » CL * AA18 » IERR) 
AA=AA15* ( AA18-AA15) * ( (TR-. 15) / ( . 18-. 15) ) 

60 CALL°iBi° (26. XMI, 9, CLI »26,ALPS18, IORDER, IPT, XM,CL»AA18, IERR) 

CALL^IBI (26»XMI*9*CLI*26* ALP521* IORDER* IPT»XM,CL,AA21,IERR) 
AA=AA18+ (AA2l"AAl8)*( (TR-. 18) /(•?!-• 18) ) 


70 

400 


CALL°IBI 0 (26»XMI*9»CLI»26,ALP521,I0RDER*IPT»XM,CL*AA21*IERR) 

AA=AA21 
CONTINUE 
IPT ( 1) =-l 


91 


201 


IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 


(TR 

(TR 

(TR 

(TR 

(TR 

(TR 

(TR 

(TR 


.LT. 
• GE. 
.GE. 
.GE. 
.GE. 
.GE. 
. GE . 
.GE 


.04) 

.04 

.06 

.09 

.12 

.15 

.18 

. 21 ) 


GO TO 91 
.AND. TR 
.AND. 
.AND. 
.AND. 
.AND, 
.AND. 

GO TO 


TR 

TR 

TR 

TR 

TR 

71 


.LT. 

.LT. 

.LT. 

.LT. 

.LT. 

.LT. 


.06) 

.09) 

. 12 ) 

.15) 

.18) 

. 21 ) 


GO 

GO 

GO 

GO 

GO 

GO 


TO 

TO 

TO 

TO 

TO 

TO 


11 

21 

31 

41 

51 

61 


CALL IBI (5*CLII*26*XMI*5»CD5 04, IORDER. IPT, CL*XM»CDRG04»IERR> 
CD=CDRG04 

FORMAT (*0THICKNESS RAT 1 0=* ♦ F5 . 3 . » IS OUT OF RANGE. 

THE VALUES FOR T/C=.04 HAVE BEEN RETURNED* ) 


11 CALL IBI (5,CLII»26,XMI,5,CD504,IORDER,IPT,CL,XM,CDRG04,IERP) 

CALL ( lBl" (5, CL 1 1 ♦ 26 , XMI , 5 , CO506 , IORDER, IPT , CL ♦ XM , CDRG0 6 , IERR) 
CD=CDRG04 ♦ ( CDRG06-CDRG04 ) * ( (TR-. 04) / ( • 06-. 04) ) 

21 CALL°IBI° (5.CLI 1*26, XMI.5.CD506* IORDER, IPT,CL.XM.CDRG06, IERR) 
CALL ( iBl” (5,CLII.26,XMI,5,CD509,IORDER,IPT,CL,XM*CDRG09,IERR) 

CD=CDrG06 + (CDRG09 - CDRG06 ) * ( (TR- . 06 ) / ( • 0 9“ • 0 6) ) 

31 CALL° IBI (5.CLI I ,26, XMI ,5,CD509, IORDER. IPT »CL.XM,CDRG09, IERR) 

CALL 1 lBl"(5, c LII , 26, XMI, 5, CD51 2, IORDER, IPT, CL, XM, CORGI 2, IERR) 
CD=CDRG09* (CDRG12-CDRG09)*( ( TR-. 09 ) / ( . 1 2- . 09 ) ) 

41 CALL°IBI 0 (5,CLII»26,XMI,5,CD512,I0RDER,IPT,CL,XM,CDRG12,IERR) 

CALL ^ IBI (5. CL II, 26, XMI ,5, CD515, IORDER »IPT»CL»XM»C0RG15,IERR> 
CD=CDRG12 ♦ (CDRG15-CDRG12)* ( (TR-. 12) / ( . 15-. 12 ) ) 

51 CALL^IBI (5, CL 1 1, 26, XMI ,5,CD515, IORDER, IPT,CL,XM,CDRG15, IERR) 

CALL ( lBl’l5,CLII,26,XMl,5,CD518,I0RDER,lPT,CL,XM,CDRG18,IERR) 

CD=CDRG15+ (CORGI 8-CDRG15) * ( (TR-.15)/(.18-.15) ) 

61 CALL°IBI° (5,CLII,26,XMI,5,CD518, IORDER, I PT , CL , XM , CDRG1 8 , IERR) 

CALL ( IBI (5, CL 1 1, 26, XMI ,5, CD521 , IORDER , IPT »CL» XM.CDRG21 , IERR) 
CD=CDRG18*(CDRG21”CDRG18)*( (TR-.18)/(.21-.18) ) 


80 



ooooooooooooooooooooo 


60 TO 250 

71 CALL 18 1 (5»CLII»26fXMI,5,CD521» I ORDER, IPT*CL»XM»CDRG21»IERR) 
CD=CDRG21 

IF (TR .GT. .21) WRITE (6*204) TR 
204 FORMAT (*OTHlCKNESS RATI0=*»F5.3,« IS OUT OF RANGE. 

8,*/* THE VALUES FOR T/C=,21 HAVE BEEN RETURNED. ») 

250 IF (CL .GT. .8) GO TO 251 
RETURN 

251 CALL COMPUT (D,XM, ALT » COR » TR , AA» CDT » CL, CD* CLDES ) 

CD=CDT 

RETURN 

END 


SUBROUTINE AER06 ( XLD , CL, CD * XM, AA , I KEY • TR * CLDES t ALT , COR • D ) 


THIS SUBROUTINE IS DESIGNED TO COMPUTE THE AIRFOIL 
CHARACTERISTICS FOR A 16 SERIES AIRFOIL WITH A GIVEN CAMBER. 

THIS SUBROUTINE RELATES CL»CD,CL/CD*MACH»T/C»AND ALPHA. 

IT REPRESENTS THE DATA OF A 16-6XX AIRFOIL. 

XM=RELATIVE MACH NO. AT BLADE ELEMENT 
AA=ANGLE OF ATTACK IN DEGREES 
IKEYl: CL=CL (MACH» ALPHA. T/C) 

: C0=CD(MACH.CL»T/C) 

:XLD=CL/CD 

IKEY2: ALPHA=ALPHA(MACH,CL»T/C) 

: CD=C0(MACH.CL»T/C) 

:xld=cl/cd 

TR=T/C 


DIMENSION I ORDER (2) . IPT ( 2 ) , ALP604 ( 26 . 9) » ALP60 6(26.9) ♦ 
8. ALP609 (26.9) » Ai_P6 1 2 ( 26 , 9 ) , ALP615 (26.9) . 

8, CL I (9) »XMI (2b) .ALP I (7) .CL604 (7. 26) » 

8. CL606(7,26) »CL609( 7.26) »CL6 12 (7,26) *CL6 15 (7.26) » 

8. CD 604(5.26) »CD606(5,26) » 

8. CD609 (5.26) .CD612 (5.26) »CD615(5,26) .CLI 1(5) 

DATA ( ( CL604 ( 1 ♦ J) » J= 1 » 26) » 1= 1 .4 ) / 


1 

.021. 

.021. 

.021, 

.025, 

.030, 

.033, 

.035, 

.040, 

.060, 

1 

.086. 

.111. 

.125, 

.112, 

.052, 

-.017, 

-.085, 

-.154, 

-.214, 

1 

-.202. 

-.127. 

-.051, 

-.018, 

-.026, 

-.194, 

-.263, 

-.235, 


2 

.246, 

.259. 

.279, 

.289, 

.305, 

.312, 

• 320 ♦ 

,328, 

.336, 

2 

.343, 

.351. 

.349, 

.313, 

.254, 

.190, 

.116, 

.037, 

.009, 

2 

• 030 * 

.098, 

.158, 

.190, 

.174, 

.002, 

-.126, 

-.149, 


3 

.467 , 

.497, 

.523, 

.540, 

.559, 

.569, 

.579, 

.591, 

.603, 

3 

• 616. 

.629, 

.616, 

.559, 

.485, 

.404, 

.324, 

.249, 

.214, 

3 

.235, 

.287, 

.352, 

.378, 

.356, 

.172, 

.027, 

-.031, 


4 

.673. 

.699, 

.727, 

.742, 

. 762 , 

.771, 

.781, 

.791, 

.804, 

4 

.818. 

.826, 

.808, 

.739, 

. 67 0 , 

.600, 

.530 , 

.463, 

.422, 
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4 

.455 » 

.518, 

.573, 

.595, 

.578, 

.356, 

.163, 

,080/ 


DATA ( (CL604 ( I * J 

) » J = 1 ,26) ,1=5, 

7)/ 




1.032, 

5 

* 820 » 

.858, 

.895, 

.919, 

.948, 

.968, 

.989, 

1.010, 

5 

1.042* 

1.028, 

.997, 

.943, 

.877, 

.812, 

.746, 

.681, 

.663, 

5 

.699* 

.757, 

.811, 

.830, 

.799, 

.520, 

• 298, 

.191, 

1.192, 

6 

.953* 

1.01&, 

1.060, 

1.086, 

1.121, 

1.139, 

1.157, 

1.175, 

6 

1.190* 

1.170, 

1.134, 

1.078, 

1.021, 

.965, 

.908, 

.849, 

.824, 

6 

.859* 

.918, 

.975* 

1.005, 

.975, 

.655, 

,415, 

.309, 


7 

1.114* 

1.169, 

1.215, 

1.239, 

1.271, 

1.288, 

1.304, 

1.324, 

1.337, 

7 

1.321, 

1.293, 

1.254, 

1.212, 

1.165, 

1.109, 

1.053, 

.993, 

.960, 

7 

1.007, 

1.083, 

1.148, 

1.158, 

1.137, 

.802, 

.547, 

.420/ 


DAT A ( (CL606 ( I 

) , J=l,26) , 1=1, 

4)/ 




.044, 

1 

.057, 

. 055, 

.060, 

.065, 

.070, 

.072, 

.073, 

.071, 

1 

-.032* 

-.114, 

-.197, 

-.279, 

-.362, 

-.444, 

-.512, 

-.516, 

-.485, 

1 

-.420, 

-.357, 

- . 336 , 

— . 345 , 

-.352, 

-• 361 , 

-.366, 

-.371, 

.337, 

2 

.273* 

.282, 

.298, 

.309, 

.326, 

.334, 

.342, 

.345, 

2 

.296* 

.210, 

.124, 

.037, 

-.049, 

-.135, 

-.211, 

-.231, 

-.183, 

2 

-.120, 

-.058, 

-.034, 

-.051, 

-.068, 

-.132, 

-.154, 

-.148, 


3 

.479, 

.504, 

.543, 

.563, 

.582 , 

.592, 

.603, 

.616, 

• 633 , 

3 

.624* 

.576, 

.474, 

.369, 

.264, 

.160, 

.079, 

.067, 

.105, 

3 

.187, 

.267, 

.272, 

.251, 

.230, 

.107, 

• 007, 

-.038, 


4 

.685* 

.727, 

.757, 

.777, 

.796, 

.806, 

.815, 

.824, 

.831, 

4 

.801, 

.734, 

.664, 

.577, 

.488, 

.400, 

.311, 

.307, 

.368, 

4 

.435, 

.497, 

.508, 

.481, 

.450, 

.278, 

.142, 

.087/ 


DATA ( ( CL606 ( I » J ) * J=1 *26) * I = 5i 

.7) / 




.975, 

5 

.806, 

. 867 , 

.913, 

.941, 

.970, 

.984, 

.998, 

.999, 

5 

.921* 

.855, 

.789, 

.723, 

.657, 

.590, 

.533, 

.520, 

.557, 

5 

.638* 

.711, 

.721, 

. 68 0 , 

.639, 

.421, 

• 260 , 

.188, 


6 

.936* 

.994, 

1.036, 

1.068, 

1.103, 

1.122, 

1.138, 

1.136, 

1.100, 

6 

1.055, 

.998, 

.941, 

. 884 , 

.817, 

.746, 

. 680 , 

. 668 , 

.714, 

6 

.793* 

.862 , 

.873, 

.835, 

.791, 

.546, 

. 366 , 

.283, 

1.238, 

7 

1.099, 

1.158, 

1.208, 

1.237, 

1.271, 

1.288, 

1.305, 

1.278, 

7 

1.191, 

1.135, 

1.078, 

1.022, 

.965, 

.907, 

.847, 

.830, 

.880, 

7 

.952, 

1.023, 

1.034, 

.995, 

.949, 

.680, 

.493, 

.403/ 


DATA( (CL609 (I*i 

J ) » J= 1 » 

26) , 1=1 

,4) / 




.082, 

1 

.077, 

.097 , 

.099, 

.100, 

.107, 

.112, 

.113, 

.111, 

1 

-.022, 

-.126, 

-.246, 

-.369, 

-.475, 

-.528, 

-.522, 

-.457, 

-.377, 

1 

-.299, 

-.268, 

-.274, 

-.284, 

-.293, 

-.304, 

-.309, 

-.309, 


2 

.288, 

.308, 

.334, 

.347, 

.369, 

.379, 

.376, 

.358, 

.304, 

2 

.227, 

.111* 

-.005, 

-.123, 

-.247, 

-.304, 

-.308, 

-.234, 

-.141, 

2 

-.081 , 

-.076, 

-.087, 

-.097, 

-.104, 

-.146, 

-.167, 

-.173, 


3 

.480, 

.513, 

.542, 

.557, 

.573, 

.581, 

.590, 

.581, 

.546, 

3 

.482, 

.373, 

.234, 

.081, 

-.067, 

-.111, 

-.095, 

-.023, 

. 066 , 

3 

.119, 

.111, 

.101* 

.089, 

.078, 

.017, 

-.013* 

-.044, 


4 

• 675 , 

.718, 

.755, 

.776, 

.798, 

.809, 

.788, 

.738, 

.672, 

4 

.607* 

.542, 

.415, 

.288, 

.163, 

.097, 

.114, 

.200, 

.290, 

4 

.337, 

.333, 

.319, 

.302, 

.284, 

.191, 

• 121, 

.080/ 


DAT A ( ( CL609 ( I * 

J) » J=l» 

26) , 1=5 

,7)/ 




.787, 

5 

.785, 

.830, 

.885, 

.912, 

.950, 

.952, 

.925, 

.857, 

5 

.717, 

.634, 

.533, 

.433, 

• 346 , 

.307, 

.328, 

.401, 

.490, 

5 

.535, 

.526, 

.507, 

.487, 

.466, 

.349, 

.256, 

.190, 

.899, 

6 

.908, 

.970, 

1.032, 

1.074, 

1.100, 

1.087, 

1.026, 

.963, 

6 

.836, 

.755, 

.669, 

.583, 

.505, 

• 464, 

.488, 

.576, 

.678, 

6 

.713, 

.693, 

.671, 

• 648 , 

.624, 

.483, 

.365, 

.285, 

1 . 0 1 3 , 

7 

1.019, 

1.085, 

1 • 146 ♦ 

1.183, 

1.196* 

1.167, 

1.121, 

1.075, 
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7 

.937, 

.861* 

.785, 

.709, 

. 641 , 

.607, 

.625, 

.705, 

.793, 

7 

.845, 

.840, 

.819, 

.793, 

.767* 

.619, 

.495* 

.394/ 


DATA ( (CL612 ( I *< 

J) , J=1 » 

26) ,1=1,4)/ 





1 

.063, 

.079, 

.087, 

.093, 

.099, 

.095, 

.070* 

-.002, 

-.113, 

1 

-.238, 

-.363, 

-.487, 

-.598, 

—.607 , 

-.568, 

-.459, 

-.325, 

-.276, 

1 

-.278* 

-.280, 

-.282, 

-.284, 

-.286, 

-.298, 

-.310, 

-.321, 


2 

.247, 

.277, 

.295, 

.305, 

.297, 

.282, 

.247, 

.173, 

.057, 

2 

-.071, 

-.199, 

-.361, 

-.450, 

-.470, 

-.423, 

-.307, 

-.178, 

-.121, 

2 

-.123, 

-.125, 

-.127, 

-.129, 

-• 130 , 

-.142, 

-.153, 

-.164, 


3 

.424, 

.447, 

. 466, 

,480, 

.493, 

.487, 

.457, 

,367 , 

.245, 

3 

.122, 

-.000, 

-.122, 

-.241, 

-.279, 

-.247, 

-.118, 

-.014, 

.019, 

3 

.015, 

.011* 

.006, 

.002, 

-.002, 

-.028, 

-.035, 

-.032, 


4 

.601, 

.631* 

.659, 

.676, 

.679, 

.657, 

.590, 

.482, 

.374, 

4 

.267, 

.159, 

.051, 

-.047, 

-.077, 

-.038, 

.096, 

.187, 

.221, 

4 

.219, 

.205, 

.192, 

.179, 

. 1 68 , 

.118, 

.095, 

.072/ 


DATA { (CL612(I» 

J) »J=1* 

26) ,1=5, 

7)/ 





5 

.752* 

.790, 

.820* 

.839, 

.840 , 

.788, 

.700, 

.604, 

.507, 

5 

.411, 

.315, 

.218, 

.133, 

.109, 

.145, 

.275, 

.383, 

.407, 

5 

.393, 

.378, 

.363, 

.348, 

.337, 

.269, 

.225, 

.187, 


6 

.844, 

.907, 

.969, 

1.006, 

1.014, 

.965, 

.869, 

.773, 

.677, 

6 

.581, 

• 485, 

.389, 

.312, 

.291, 

.332, 

.461, 

.554, 

.585, 

6 

.573, 

.554, 

.534, 

.515, 

.495, 

.410, 

.346, 

.295, 


7 

.958, 

1.022* 

1.083, 

1.120, 

1.124, 

1.072, 

.938, 

.904, 

. 820 , 

7 

.717, 

.611, 

.505, 

.428, 

.404, 

.443, 

.561, 

.665, 

.699, 

7 

.681, 

.663, 

.646, 

.628, 

.611, 

.527, 

.463, 

.416/ 


DATA ( (CL615 ( I * 

J) , J=l» 

26) *1=1*4)/ 





1 

.072, 

• 080 , 

.084, 

.086, 

.072, 

.045, 

-.003, 

—.076, 

-.233, 

1 

-.407, 

-.627, 

— . S3 5 , 

-.922, 

-.895, 

-.769, 

-.591, 

-.439, 

-.417, 

1 

-.413, 

-.410, 

-.406, 

-.403, 

-.400, 

-.387, 

-.372, 

-.357, 


2 

.213, 

.22*, 

.226, 

.216, 

.205, 

.200, 

.134, 

.055, 

-.086, 

2 

-.265, 

-.444, 

-.616, 

-.696, 

-.630, 

— • 506 , 

-.353, 

-.258, 

-.250, 

2 

-.245* 

-.24*, 

-.243, 

-.242, 

-.240, 

— . 2?7 , 

-.209, 

-.190, 


3 

.367, 

.378, 

.384, 

.394, 

.377, 

.341, 

.284, 

.207, 

.105, 

3 

-.041, 

-.232* 

-.416, 

-.474, 

-.415, 

-.283, 

-.156, 

-.114, 

-.107, 

3 

-.105, 

-.103, 

-.100, 

-.098, 

-.096, 

-.083, 

-.065, 

-.046, 


4 

.544 , 

• 567 , 

.579, 

.586, 

.560 , 

.528, 

• 449 * 

.369, 

.246, 

4 

.110* 

-.057 , 

-.201, 

-.252, 

—.207 , 

-.071, 

.057, 

.094, 

.093, 

4 

.091, 

.090, 

.089, 

.086, 

.084, 

.071, 

.062* 

.062/ 



DATA ( (CL615 ( I 

* J) » J=1 

*26) ,1=5 

',7)/ 





5 

.688* 

.717, 

.734, 

.745, 

.725, 

.676, 

.60 2* 

.515, 

.398, 

5 

.281, 

. 160 , 

.046, 

.003, 

. 046, 

.182, 

.308, 

.341, 

.335, 

5 

.328, 

.322, 

.314, 

.306, 

.298, 

.253, 

.212, 

.172, 


6 

.789, 

.839, 

.870, 

.880, 

.826, 

.777, 

.702, 

.601, 

.500, 

6 

.375, 

.239, 

.133, 

.087, 

.130, 

.281 , 

.404, 

.435, 

.433, 

6 

.425, 

• 418, 

.410, 

.403, 

.395, 

.353, 

.313, 

.274, 


7 

.887, 

.939, 

.991, 

1.015, 

.953, 

.889, 

.824, 

.728, 

.607, 

7 

.487, 

.349, 

.218, 

.172, 

.212, 

.361, 

.490, 

.521, 

.514, 

7 

.506, 

.499, 

.492, 

.485, 

.478, 

.435, 

.394, 

.355/ 


DAT A ( ( ALP604 ( J 

»N) * N= 1 

,9) ♦ J= 1 » 1 3 ) / 





8, 

-7.74, 

-5.96, 

-4.19, 

-2.41, 

-. 61 , 

1.29, 

3.73, 

6.58, 

9.07, 

& 

-7.54, 

-5.86, 

-4.18, 

-2.50, 

-.82, 

1.02, 

3.27, 

5.80, 

8.41, 

& 

-7.26, 

-5.71, 

-4.16, 

-2.61, 

- 1 . 01 , 

.75, 

2.87, 

5.27, 

7.81, 

& 

-7.22, 

-5.70, 

-4.19, 

-2,67, 

-1.12, 

,59, 

2.66, 

4.97, 

7.49, 

& 

-7.13* 

-5.67, 

-4.22, 

-2.76, 

-1.25, 

.40, 

2.41, 

4.60, 

7.05, 

& 

-7.10, 

-5.67, 

-4.24, 

-2.80, 

-1.32, 

.31, 

2.29* 

4.37, 

6,82, 
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& 

-7.05t 

-5.65, 

-4.25, 

-2.84, 

-1.38, 

.21, 

2.18, 

4.13, 

6.59, 

& 

-7.06. 

-5.67, 

-4.28, 

-2.89, 

-1.45, 

.09, 

2.08, 

3.91, 

6.34, 

& 

-7,33* 

-5.88, 

-4.43, 

-2.99, 

-1.52, 

-.02, 

1.96, 

3.72, 

6.11, 

s, 

-7.78* 

-6.23, 

-4.67, 

-3.11, 

-1.58, 

-.12, 

1.82, 

3.63, 

6.15, 

& 

-8.26* 

-6.59, 

-4.93, 

-3.26, 

-1.65, 

-.21, 

1.72, 

3.72, 

6.49, 

& 

-8.69* 

-6.90, 

-5.12, 

-3.33, 

-1.62, 

-.12, 

1.92, 

4.04, 

7.10, 

& 

-9.09. 

-7.10, 

-5.11 , 

-3.12, 

-1.29, 

.46, 

2.60, 

4.84, 

7.82/ 

DATA ( (A|_P604<Ji 

i N ) * N= 1 

,9) , J=14,26)/ 





& 

-8.48* 

-6.50, 

-4.51, 

-2.53, 

-.74, 

1.24, 

3.26, 

5.71, 

8.49, 

t. 

-7.70* 

-5.77, 

-3.84, 

-1.91, 

-.04, 

2.00, 

3.99, 

6.49, 

9.26, 

& 

-7.13* 

-5.14, 

-3.15, 

-1.19, 

.74, 

2.65, 

4.67, 

7.27, 

10.03, 

& 

-6.58. 

-4.48, 

-2.39, 

-.46, 

1.41, 

3.26, 

5.42, 

8.10, 

10.88, 

$, 

-5.67* 

-3.87, 

-2.08, 

-.14, 

1.79, 

3.48, 

5.70, 

8.59, 

11.53, 

& 

-5.71, 

-3.98, 

-2.26, 

-.34, 

1.50, 

3.19, 

5.26, 

7.91, 

10.61, 

& 

-6.43* 

-4.65, 

-2.87, 

- . 92 , 

.98, 

2.69, 

4.53, 

6.99, 

9.42, 

& 

-7.34, 

-5.43, 

-3.51 , 

-1.57, 

.43, 

2.23, 

3.91, 

6.29, 

8.60, 

& 

-7.67, 

-5.75, 

-3.83, 

-1.89, 

. 20 , 

2.04, 

3.74, 

5.94, 

8.55, 

& 

-7.74, 

-5.74, 

-3.74, 

-1.71, 

.40, 

2.20, 

4.01, 

6.31, 

8.78, 

& 

-6.10, 

-4,06, 

-2.02, 

.30, 

2.54, 

5.19, 

7.97, 

10.69, 

13.41, 

& 

-6.00, 

-3.08, 

-..35, 

2 .55, 

5.74, 

8.80, 

11.83, 

14.86, 

17.89, 

& 

-7.84, 

-3.19, 

.56, 

4.15, 

7.64, 

11.24, 

14.85, 

18.45, 

22.05/ 

DATA ( ( ALP606 ( Ji 

N ) * N= 1 ,9) , J = l, 

13)/ 





& 

-8.23, 

-6.38, 

-4.53, 

-2.68, 

-.77, 

1.17, 

3.90, 

6.79, 

9.24, 

& 

-8.01 , 

-6.25* 

-4.48, 

-2.72, 

-.94, 

.86, 

3.04, 

6.07, 

8.51, 

& 

-7.87, 

-6.18, 

-4.50, 

-2.82, 

-1.17, 

.53, 

2.55, 

5.41 , 

7.91, 

S. 

-7.81, 

-6.17, 

-4.53, 

-2.89, 

-1.28, 

.35, 

2.28, 

4.93, 

7.56, 

& 

-7.67, 

-6.11, 

-4.55, 

-2.98, 

-1.42, 

.17, 

2.05, 

4.45, 

7.15, 

s. 

-7.60, 

-6.08, 

-4.55, 

-3.02, 

-1.49, 

.07, 

1.94, 

4.23, 

6.94, 

8. 

-7.52, 

—6 . 03 , 

-4.54, 

-3.06, 

— 1 .56, 

-.02, 

1.86, 

4.03, 

6.74, 

& 

-7.44, 

-5.98, 

-4.52, 

-3.06, 

-1.59, 

-.12, 

1.77, 

4.01, 

6.90, 

5 . 

-7.03, 

-5.67 , 

-4.30, 

-2.94, 

-1.57, 

-.22, 

1.69, 

4.40, 

7.45, 

8. 

-6.24, 

-5 .02, 

-3.80 , 

-2.59, 

-1.37, 

-.15, 

1.99, 

5.18, 

8.13, 

8. 

-5.77, 

-4 . 53 , 

-3.30, 

-2.06, 

— . 96 , 

.30, 

3.09, 

6.03, 

8.95, 

& 

-5.26, 

-4.02, 

-2.77, 

-1.57, 

-.42, 

1.33, 

4.14, 

6.86, 

9.78, 

8, 

-4.77, 

-3.50, 

-2.23, 

-1.02, 

• 30, 

2.32, 

4.96, 

7.68, 

10.58/ 

DAT A ( (ALP606( Ji 

N ) ♦ N= 1 

,9) , J=14 

,26)/ 





& 

-4.24, 

-2.96, 

-1.69, 

— .41, 

1.21, 

3.33, 

5.79, 

8.47, 

11.18, 

8. 

-3.72, 

-2.42, 

-1.08, 

.33, 

2.00, 

4.13, 

6.67, 

9.16, 

11.64, 

8. 

-3.26, 

-1.92, 

-.54, 

1.04, 

2.80, 

4.91, 

7.44, 

9.83, 

12.23, 

& 

-3.19, 

-1.79, 

-.45, 

1.11, 

2.87, 

5.08, 

7.63, 

10.10, 

12.57, 

8. 

-3.44, 

-2.H, 

-.73, 

.72, 

2.34, 

4.55, 

7.04, 

9.45, 

11.86, 

8. 

-3.97, 

-2.53, 

-1.22, 

.10, 

1.72, 

3.63, 

6.09, 

8.60, 

11.12, 

& 

-4.29, 

-2.95, 

-1.64, 

-.41, 

1.16, 

2.96, 

5. 18, 

7.71, 

10.20, 

& 

-4.42, 

-3.10, 

-1.78, 

-.47, 

1.08, 

2.86, 

5.04, 

7.58, 

10.06, 

6 . 

-4.37, 

-3.01, 

—1.66, 

-.34, 

1.30, 

3.20, 

5.55, 

8.06, 

10.56, 

8. 

-4.34, 

-2.93, 

-1.54, 

-.20, 

1.55, 

3.59, 

6.11, 

8.65, 

11.18, 

& 

-4.34, 

-2.59, 

-.90, 

1.09, 

3.71, 

6.81, 

9.79, 

12.78, 

15.76, 

& 

-4.32, 

-2.43, 

-.09, 

2.98, 

6.54 , 

9.69, 

12.83, 

15.98, 

19.13, 

8. 

-4.26, 

-2.47, 

.61, 

4.25, 

7.95, 

11.28, 

14.62, 

17.95, 

21.28/ 

DATA ( ( AL.P609 ( J< 

N ) »N=1 

,9) , J=l, 

13)/ 





8 

-8.52, 

-6.63, 

-4.73, 

-2.83, 

-.83, 

1.23, 

4.24, 

7.66, 

11.26, 

8 

-8.71 ♦ 

-6.82, 

-4.92, 

-3.02, 

-1.10, 

.85, 

3.46, 

6.52, 

10.00, 

8 

-8.25, 

-6.54, 

-4.84, 

-3.14, 

-1.37, 

.54, 

2.69, 

5.56, 

8.95, 

8 

-8.05, 

-6.43, 

-4.81, 

-3.19, 

—1.50, 

.39, 

2.35, 

5.09, 

8.31, 

8 

-7.87, 

-6.3^» 

-4.82, 

-3.29, 

-1.70, 

.24, 

2.03, 

4.67, 

8.08, 


84 


& 

-7.84, 

-6 .34* 

-4.84, 

-3.34, 

-1.79, 

.17, 

1. 

92, 

4 

.71, 

6 

83 , 

& 

-7.90* 

-6# 38 » 

-4.86, 

-3.34, 

-1.78, 

.10, 

2. 

18, 

5 

.49, 

9 

.66, 

6. 

-8.14, 

-6* 52 * 

-4.90, 

-3.28, 

-1.62, 

.24, 

3. 

04, 

6 

.66, 

10 

.23, 

& 

-8.34* 

-6 « » 

-4.74, 

-2.94, 

-1.21, 

• 86, 

4. 

23, 

7 

.77, 

11 

.28, 

& 

-7,04* 

-5 • 43 f 

-3.82, 

— 2 . 22 * 

-.64, 

1.89, 

5. 

39, 

9 

.25, 

13 

.21, 

& 

-6.31, 

-4 • 62 9 

-2.94, 

-1.32, 

.32, 

3.26, 

6. 

85, 

10 

.62, 

14 

,40, 

& 

-5.28, 

-3*62* 

-1.96, 

-.28, 

1.83, 

4.99, 

8. 

26, 

11 

.71, 

15 

.16, 

& 

-4.25* 

-2 *63* 

-.79, 

1.15, 

3.54, 

6.27, 

9. 

44, 

12 

.62, 

15, 

.79/ 

DATA ( (ALP609(J, 

N) »N=1 

,9) , J=14,26)/ 








& 

-3 . 34 * 

-1.48, 

.58, 

2.40, 

4.68, 

7.40, 

10. 

34, 

13, 

.28, 

16, 

.22, 

8. 

-2.86, 

-.92, 

1.07, 

2.98, 

5.18, 

7.90, 

10. 

70, 

13, 

.50, 

16, 

.29, 

& 

—2 . 86 , 

-.99, 

.91, 

2.80, 

4.90, 

7.64, 

10. 

55, 

13, 

.47, 

16 

.39, 

6. 

-3.49, 

-1.68, 

.21, 

2.00, 

3.99, 

6.37, 

9. 

47, 

12, 

.57, 

15, 

.67, 

6. 

-4.19, 

-2.50, 

-.64, 

1.20, 

3.10, 

5.17, 

8. 

12, 

11, 

.60, 

15, 

.08, 

& 

-4.93, 

-3.09, 

-1.19, 

.74, 

2.64, 

4.73, 

7. 

32, 

10, 

.35, 

13, 

.38, 

& 

-5.38, 

-3.29, 

-1.19, 

.80, 

2.69, 

4.89, 

7. 

46, 

10, 

,18, 

12, 

.90, 

& 

-5.35, 

-3.21, 

-1.07, 

.91, 

2.86, 

5.13, 

7. 

74, 

10, 

.45, 

13, 

.15, 

& 

-5.24, 

-3.10, 

- . 96 , 

1.04, 

3.06, 

5.40, 

8. 

10, 

10, 

.86, 

13, 

.61, 

& 

-5.13, 

-3.02, 

-.86, 

1.18, 

3.27, 

5.70, 

8. 

46, 

11, 

.26, 

14, 

.06, 

8, 

-5.22, 

-2.68, 

-.21, 

2.11, 

4.76, 

7.72, 

10. 

66, 

13, 

,60, 

16, 

.54, 

8, 

-5.28, 

-2.46, 

.19, 

3.17, 

6.54, 

9.62, 

12. 

69, 

15 

.77, 

18, 

.85, 

8. 

-5.34, 

-2.40, 

.71, 

4.21, 

8.11, 

11.78, 

15. 

45, 

19, 

,12, 

22, 

.79/ 

DAT A ( (ALP612(J, 

N) * N= 1 

9) , J= 1 , 

13)/ 








& 

-9.03, 

-6.88, 

-4.68, 

-2.51, 

-.27, 

1.99, 

5. 

04, 

8, 

.74, 

12, 

.25, 

& 

-8.84, 

-6.82, 

-4.80, 

-2.78, 

-.55, 

1.66, 

4. 

17, 

7, 

,62* 

11. 

.10, 

8, 

-8.68, 

-6.76, 

-4.84, 

-2.91, 

-.77, 

1.39, 

3. 

75, 

6, 

.54, 

10, 

,05, 

8. 

-8.65, 

-6.76, 

-4.88, 

-2.99, 

-.91, 

1.22, 

3. 

52, 

5, 

,93, 

9, 

.40, 

8. 

-9.04, 

-7. OH, 

-5.00, 

-2.98, 

-.95, 

1.15, 

3. 

50, 

5, 

,84, 

9. 

.38, 

8. 

-9.29, 

-7.16, 

-5 .02, 

-2.88, 

— . 85 , 

1.33, 

4. 

14, 

6, 

,65, 

10, 

.39, 

& 

-9.31, 

-7.05, 

-4.79, 

-2.53, 

-.54, 

2.18, 

5. 

18, 

8, 

,20, 

11, 

,56, 

8. 

-8.55, 

-6.26, 

-3.98, 

- 1 . 72 , 

.57, 

3.93, 

6. 

41, 

9, 

,47, 

12, 

,52, 

S. 

-7.38, 

-5.02, 

-2.67, 

-.48, 

2.39, 

5.09, 

7. 

72, 

10. 

,52, 

13, 

,31, 

& 

-5.94, 

-3.54, 

-1.26, 

1.08, 

3.85, 

6.28* 

9. 

22, 

12. 

,16, 

15, 

,10, 

& 

-4.45, 

-2.01, 

0.00, 

2.53, 

5.00, 

7.83, 

11. 

00, 

14, 

,17, 

17, 

,35, 

8. 

-2.62, 

- . 65 , 

1.41, 

3.78, 

6.19, 

9.64, 

13. 

09, 

16, 

,53, 

19, 

,98, 

Si 

-1.52, 

.42, 

2.52, 

4.75, 

7.52, 

10.97, 

14. 

41, 

17. 

,86, 

21. 

,31/ 

DATA ( (ALP612< J, 

N) » N= 1 < 

tl 

#> 

& 

,26)/ 








& 

-1.27, 

.78, 

2.83, 

5.00, 

7.93, 

11.47, 

15. 

01, 

18, 

,55, 

22, 

,09, 

& 

-1.74, 

• 45 , 

2.42, 

4.59, 

7.23, 

10.83, 

14. 

43, 

18. 

,04, 

21. 

,64, 

& 

-3.22, 

-.87, 

1.10, 

3.16, 

5.34, 

8.78, 

12. 

78, 

16. 

,78, 

20, 

,78, 

& 

-5.02, 

-2.30, 

.14, 

2.13, 

4.20* 

6.83, 

10. 

43, 

14. 

,04, 

17. 

, 64 , 

& 

-5.60, 

-3.02, 

-.27, 

1.79, 

3.92, 

6.26, 

9. 

77, 

13, 

,28, 

16, 

.79, 

& 

-5.57, 

-2.99, 

-.22, 

1.81, 

4.08, 

6.50, 

10. 

20, 

13. 

,91, 

17. 

,61, 

& 

-5.55, 

-2.97, 

-.16, 

1.95, 

4.25, 

6.84, 

10. 

51, 

14. 

,18, 

17, 

,85, 

& 

-5.52, 

-2.94, 

-.09, 

2.09, 

4.43, 

7.18, 

10. 

75, 

14, 

,32, 

17. 

,89, 

& 

-5.50, 

-2.92, 

-.03, 

2.25, 

4.62, 

7.50, 

11. 

04, 

14. 

.58, 

18. 

,12, 

& 

-5.46, 

-2.90, 

.02, 

2.38, 

4.80, 

7.81, 

11. 

26, 

14, 

,71, 

18, 

,16, 

& 

-5.31, 

-2.74, 

.38, 

3.09, 

5.86, 

9.25, 

12. 

67, 

16. 

.09, 

19. 

,50, 

S, 

-5.15, 

-2.60, 

.54, 

3.62, 

6.92, 

10.34, 

13. 

76, 

17. 

,18, 

20. 

,60, 

& 

-5.01, 

-2.46, 

.62, 

4.24, 

7.74, 

11.04, 

14. 

35, 

17, 

,65, 

20, 

,96/ 

DAT A ( (ALP615 ( J» 

N> » N = 1 1 

9 ) , J=l, 

13)/ 








Si-10.70* 

-7.86, 

-5.02, 

-2.18, 

.37, 

2.78, 

6. 

22, 

10. 

,31, 

14. 

,39, 

&-10. 67* 

-7.89, 

-5.11, 

-2.33, 

.23, 

2.44, 

5. 

36, 

9. 

,22, 

13. 

,22, 

&-10.82, 

-8.00, 

-5.18, 

-2.37, 

.16, 

2.27, 

4. 

97, 

8, 

,15, 

11. 

,45, 

Si-11. 48* 

-8.40, 

-5.32, 

-2.25, 

.06, 

2.18, 

4. 

81, 

7. 

,78, 

10. 

74, 



&-1 1.10, 

-8.09* 

-5.08, 

-2.08, 

.25, 2.48, 5.49, 

8.74, 

11.89, 

& -9.74, 

-7.16* 

-4.58, 

-2.00, 

•63, 2.97, 6.41* 

9.98, 

13. 55 , 

6 -9 . 80 ♦ 

-6.88, 

-3.96, 

-1.12, 

1.41, 3.97, 7.61, 

10.89, 

14.16, 

$, -8.95, 

-5.89, 

-2.84, 

-.09, 

2.42, 5.99, 9.13, 

12.28, 

15.43, 

$, -6.27, 

-3.55, 

-1.10, 

1.35, 

4.04, 7.87, 11.61, 

15 • 35 , 

19.08, 

6 -3,90* 

-1 .42, 

.54, 

3.05, 

6.45, 10.02, 13.59, 

17.16, 

20.73, 

5. -1.58, 

.37, 

2.53, 

5.01, 

8.93, 12.56, 16.20, 

19.84, 

23 • 47 , 

R. -15, 

2-01 » 

3.63, 

7.58, 

12.28, 16.99, 21.69, 

26.40, 

31.11, 

6 .67, 2.41* 

DATA ( ( ALP615 ( J, 

3.98, 
N) »N=1 » 

8.66, 
9) , J=1 4 

13.36, 18.07, 22.78, 
,26)/ 

27.48* 

32.19/ 

6 .14* 

2 . 06 , 

3.64, 

7.71, 

12.59, 17.46, 22.34, 

27.22, 

32 .10, 

6 -1.05, 
6, -2.39, 

.78, 

2.56, 

4.36, 

8.98, 13.98, 18.98* 

23.98, 

28.98, 

-.45, 

1.46, 

3.14, 

5.92, 10.56, 15.21, 

19.86, 

24.51 , 

& -3.57, 

-1.19, 

1.10, 

2.86, 

5.26, 9.84, 14.49, 

19.14, 

23.79, 

6 -3.80, 

-1.30, 

1.07, 

2.88, 

5.33, 10.12, 15.06, 

20.00, 

24.94, 

{, -3.85, 

-1.36, 

1.07, 

2.92, 

5.48, 10.32, 15.26, 

20.20, 

25.14, 

& -3.88, 

-1 .38, 

1.07, 

2.95, 

5.63 , 10.49, 15.43* 

20.37, 

25.31 , 

6 -3.93, 

-1 .40, 

1.06, 

2.99, 

5.79, 10.63, 15.51, 

20.39, 

25 . 27 , 

& -3.96, 

-1.42* 

1.07, 

3.04, 

5.94, 10.80, 15.68, 

20.56, 

25 . 44 , 

& —4.00, 

-1.44, 

1.07, 

3.08, 

6.12, 10.94, 15.76, 

20.58, 

25.40, 

6 —4,16, 

-1.63, 

1.08, 

3.42, 

7.15, 12.02, 16.90, 

21.78, 

26 . 66 , 

R. -4.34, 

-1.88, 

1.02, 

3.84, 

8.15, 13.09, 18.02* 

22.96, 

27.90, 

6 -4.51, -2.12, .85, 4.55, 9.11, 14.05, 18.99, 

D AT A((CD604(I,J),J= 1*26), 1=1*5)/ 

23.93, 

28.86/ 

1 ,0224* 

.0253, 

. 0268 , 

.0275, 

.0282, .0286, .0289, 

.0293, 

.0297, 

1 .0301* 

.0318, 

.0354, 

.0408, 

.0462, .0515, .0569, 

.0616, 

.0655, 

1 .0675* 

. 0687 , 

.0694, 

.0700, 

.0705, .0628, .0458* 

.0344, 

.0157, 

2 .0120, 

.0134, 

.0141, 

.0144, 

.0148, .0150, .0151, 

.0153, 

2 .0162* 

.0185, 

.0220, 

.0274, 

.0328, .0382, .0435, 

.0487, 

.0518, 

2 .0546* 

.0561* 

. 0566, 

.0572, 

.0578, .0560, .0491, 

.0397, 

.0065, 

3 , 0 06 3 » 

. 0062 , 

.0062* 

.0062, 

.0062, .0062, .0062, 

.00 63 , 

3 .0073, 

.0117, 

.0162, 

.0206, 

.0250, .0299, .0359* 

.0419, 

.0480, 

3 .0523* 

. 0543 , 

.0564, 

, 0584 , 

.0595, .0646, .0691, 

• 0731 , 

.0056, 

4 .0055, 

.0054 , 

.0053, 

.0053, 

.0053, .0053, .0053, 

. 0053 , 

4 .0064, 

.0098, 

.0134, 

.0169, 

.0227, .0310, .0393, 

.0478, 

.0550, 

4 .0600, 

. 0650 , 

. 0 69 8 , 

.0737, 

.0776, .0987, .1129, 

. 1284, 

.0070, 

5 .0070, 

.0067, 

.0065, 

.0066, 

.0066, .0066, .0066, 

.0068, 

5 .0083* 

.0153, 

.0223, 

.0293, 

.0370, .0498, .0621, 

.0724, 

.0826, 

5 .0921* 

. 1016 , 

.1094, 

.1163, 

.1232, .1587, .1786, 

.1906/ 



DATA ( (CD606 ( I » J) * J=1 *26) ♦ 1=1 *5) / 


1 .0198, 

1 • 0264 » 

1 ,0694, 

2 .0116* 
2 .0160* 

2 .0569, 

3 .0058, 
3 .0121, 

3 .0631, 

4 .0058, 
4 .0089, 

4 .0737, 

5 .0082, 
5 .0144, 
5 .1304, 


.0213, 
.0296, 
.0717, 
. 0 1 1 €> * 
.0186, 
. 0606 * 
.005B, 
.0153, 
. 0682 , 
.0059, 
.0124, 
. 0796, 
.0075, 
.0245, 
.1417, 


. 0221 , 

.0334, 

.0723, 

.0115, 

.0227, 

.0640, 

.0058, 

.0186, 

.0711, 

.0059, 

.0169, 

.0843, 

.0072, 

.0346, 

.1530, 


.0225, 

.0382, 

.0729, 

.0115, 

.0274, 

.0676, 

.0058, 

.0219, 

.0740, 

.0059, 

.0213, 

.0889, 

.0072, 

.0448, 

.1630, 


.0228, 

.0441, 

.0735, 

.0115, 

.0322, 

.0688, 

.0058, 

.0271, 

.0770, 

.0059, 

.0265, 

.0936, 

.0073, 

.0549, 

.1721, 


.0230, .0232* 
.0500, .0559, 
.0662, .0532* 
.0117, .0121* 
.0372, .0429* 
.0672, .0579, 
.0061, ,0065* 
.0353, .0435, 
.0803, .0810* 
.0059, .0059, 
.0374, .0481, 
.1144, .1293, 
.0076, .0080* 
.0651, .0858* 
.2178, .2484* 


.0236, .0248, 
• 061 7 , . 0667 , 
.0411, 

.0129, .0140, 
.0485, .0534, 
.0484, 

.0074, .0088, 

.0517, .0574, 

.0810, 

.0064, .0075, 
.0586, .0673, 
.1430, 

.0088, .0102, 
•1041, .1178, 
. 2682 / 


86 



DATA( (CD609(I» 

j> »j=i» 

26) ,1=1,5)/ 





1 

.0179, 

.0177, 

.0176, 

.0176, .0175, 

.0175, 

.0175, 

.0182, 

•0201, 

1 

.0235, 

.0291, 

.0347, 

.0439, .0536, 

.0629, 

.0710, 

.0786, 

.0846, 

1 

.0905, 

• 0965* 

.1016, 

.1035, .1053, 

.1071, 

.0972, 

.0780, 


2 

.0113, 

.0112* 

.0111, 

.0111, .0115, 

.0120, 

.0127, 

.0139, 

.0162, 

2 

.0206, 

.024** 

.0293, 

.0343, .0418, 

.0493, 

.0568, 

•0640, 

.0707, 

2 

.0771, 

.0811, 

.0844, 

.0863, .0882, 

.0854, 

.0757, 

,0655, 


3 

.0066, 

.0064, 

.0062, 

.0062, .0064, 

.0068, 

.0076, 

.0096, 

.0121, 

3 

.0147, 

.0189, 

.0254, 

.0320, .0409, 

.0525, 

.0640, 

.0716, 

.0787, 

3 

.0858, 

.0910, 

.0942, 

.0974, .1002, 

.1024, 

.1015, 

.0989, 


4 

.0079, 

.007S, 

.0078, 

.0078, .0077, 

.0078, 

.0081, 

.0087, 

.0099, 

4 

.0147, 

.0200, 

.0264, 

.0351, .0454, 

.0575, 

.0699, 

.0816, 

.0907, 

4 

.0992, 

.1058, 

.1123, 

.1179, .1207, 

.1356, 

.1464, 

.1536, 


5 

.0100, 

.0081, 

.0073, 

.0073, .0080, 

.0087, 

.0103, 

.0126, 

.0165, 

5 

.0204, 

.0279, 

.0371 , 

.0463, .0619, 

.0779, 

.0975, 

.1169, 

. 1352, 

5 

.1478, 

.1572, 

.1642, 

.1672, .1691, 

.1762, 

.1809, 

.1855/ 


DAT A { (CD612 ( I * 

J) »J=1» 

26) ,1=1,5)/ 





1 

.0197, 

. 0208 , 

.0211, 

.0217, .0223, 

.0227, 

.0232, 

.0259, 

.0312, 

1 

.0381, 

.0462, 

.0550, 

.0638, .0725, 

.0818, 

.0930, 

.1020, 

.1104, 

1 

.1189, 

.1255, 

. 1302, 

.1348* .1366. 

.1294, 

.1084, 

.0833, 


2 

.0127, 

.0127, 

.0128, 

.0128, .0133, 

.0138, 

.0163, 

.0209, 

.0270, 

2 

.0349, 

.0430, 

.0519, 

.0617, .0712, 

.0806, 

.0894, 

.0976, 

. 1058, 

2 

.1140, 

.1199, 

.1257, 

.1316, .1363, 

.1379, 

.1187, 

.0947, 


3 

.0097, 

.0097, 

.0096, 

.0096, .0103, 

.0115, 

.0139, 

.0178, 

.0235, 

3 

.0313, 

.0407, 

.0512, 

.0621, .0725, 

.0830, 

.0942, 

.1054, 

.1136, 

3 

.1218, 

.1300, 

.1365, 

.1426, .1486, 

.1538, 

•1444, 

.1284, 


4 

.0078, 

.0078, 

.0078, 

.0078, .0078, 

.0091, 

.0111, 

.0141, 

.0208, 

4 

.0275, 

, 0 343 , 

.0454, 

,0578, .0707, 

. 0839 , 

.0971, 

.1100, 

.1230, 

4 

.1343, 

.1432, 

.1521, 

.1610, .1678, 

.1968, 

.1952, 

.1853, 


5 

.0107, 

.0107, 

.0107, 

.0107, .0108, 

.0123, 

.0166, 

.0219, 

•0313, 

5 

.0471, 

.0636, 

.0798, 

.0959, .1103, 

.1236, 

.1374, 

.1517, 

.1661, 

5 

.1785, 

.1897, 

.2008, 

.2120, .2229, 

.2798, 

.3189, 

.3488/ 


DAT A ( (CD615 (I , 

J) »J=1» 

26) ,1=1,5)/ 





1 

.0160, 

.0272, 

.0328, 

.0355, .0386, 

.0413, 

.0450, 

.0534, 

.0628, 

1 

.0731, 

• 083^ » 

.0924, 

.1011, .1097, 

.1182, 

.1256, 

.1324, 

. 1392, 

1 

.1453, 

.1504, 

.1553, 

.1572, .1591, 

.1547, 

.1349, 

.1190, 


2 

.0131, 

.0130, 

.0130, 

.0137, .0155, 

.0186, 

.0248, 

.0326, 

.0454, 

2 

.0598, 

.0752, 

.0895, 

.1014, .1132, 

.1237, 

.1317, 

.1396, 

. 1454 , 

2 

.1510, 

.1559, 

.1586, 

.1612, .1631, 

.1594, 

.1409, 

.1243, 


3 

.0106, 

.010b, 

.0105, 

.0106, .0120, 

.0146, 

.0225, 

.0319, 

•0413, 

3 

.0579, 

.0740 , 

.0899, 

* 1 063 , .1201, 

.1294, 

.1387, 

.1469, 

.1546, 

3 

.1623, 

.1689, 

. 1722, 

.1755, .1788, 

.1755, 

.1678, 

.1583, 


4 

.0099, 

.0098, 

.0098, 

.0098, .0108, 

.0132, 

•0200, 

.0302, 

• 0404 , 

4 

.0506, 

• 0663 , 

.0833, 

.1017, .1200, 

.1346, 

.1490, 

.1625, 

.1722, 

4 

.1818, 

.1908, 

.1951, 

.1993, .2036, 

.2162, 

.2173, 

.2155, 


5 

.0119, 

.0119, 

.0119, 

.0125, .0147, 

.0215, 

.0314, 

.0413, 

.0610, 

5 

.0817, 

.1049, 

.1285, 

.1509, .1732, 

.1923, 

.2092, 

.2262, 

.2423, 

5 

.2559, 

.2695, 

.2796, 

,2788, .2780* 

.2734, 

.2688, 

.2642/ 


DATA (XMI (J) ♦ J= 

1,26)/.: 

3, .5, .6, .65, .7, 

.725, .75, .775, 



8. 

♦ B f « 825 

f • 85 * * 

875, .9, 

.925, .95, .975,1 

.0,1.025,1.06, 

1.075, 


U 

.1,1.125,1.15 

,1.3,1. 

45,1.6/ 





DATA ( CL I ( J) ,J = 

1,9)/-.. 

4t-»«2f0«0t *2 * • 4f *6 9 • 8? 

1.0, 1.2/ 



DAT A ( ALPI (J) * J=l,7) /-4. 0 , -2 .0 * 0 . 0 ,2 . 0 ,4 . 0 ,6.0 ,8.0/ 
DATA (CLI I ( J) »J=l,5)/0.0» .2,. 4,. 6,. 8/ 
I0RDER(1)=I0RDER(2)=1 



IPT 

(D = -1 







IF 

(IKEY .EQ. 2) GO TO 

1000 





IF 

(TR .LT. .04) GO TO 

9 






IF 

(TR .GE. .04 .AND. 

TR 

.LT. 

.06) 

GO 

TO 

1 

IF 

(TR .GE. .06 .AND. 

TR 

.LT* 

.09) 

GO 

TO 

2 

IF 

(TR .GE. .09 .AND. 

TR 

.LT. 

.12) 

GO 

TO 

3 

IF 

(TR .GE. .12 .AND. 

TR 

.LT. 

.15) 

GO 

TO 

4 


IF (TR .GE. .15) GO TO 5 „ A , 

CALL I BI (7,ALPI , 26 ♦ XM 1 , 7 » CL604* IORDER * I PT ♦ A A ♦ XM * CLFT04 , 
CL=CLFT04 
GO TO AO 0 

CALL I B I (7*ALPI*26*XMI,7*CL604*IORDER*IPT»AA»XM*CLFT04* 

IPT ( 1 ) =-l . 

CALL IBI (7*ALPIt26*XMI.7*CL606»I0RDER*IPT*AA»XM*CLFT06* 
Ci_ = CLFT0A + (CLFT06-CLFT04) * ( (TR-. 04) / ( . 06-. 04) ) 

GO TO 400 

CALL I B I ( 7 * ALP I * 26f XM I * 7 * CL606* IORDER » I PT » A A t XM * CLFTO 6 * 

CALL ( IBI (7* ALPI *26»XMI,7*CL609t IORDERt IPT »AA*XM*CLFT09* 
CL=CLFT06 ♦ (CLFT09 - CLFT06 ) * ( < TR-. 06 ) / ( . 09- . 06 ) ) 

GO TO 400 

CALL IBI (7,ALPI»26»XMI,7fCL609»IORDER»IPT*AA»XM*CLFT09» 
IPT ( 1 ) =-l 

CALL IBI (7* ALPI »26*XMI »7»CL612» IORDER* IPT* AA» XM»CLFT12* 
CL=CLFT09+ (CLFT1H-CLFT09)*( (TR-. 09) / ( . 1 2“ . 09) ) 


IERR) 

IERR) 

IERR) 

IERR) 

IERR) 

IERR) 

IERR) 


1 


4 CALL°IBI° (7»ALPI*26»XMI*7*CL6l2*I0RDERtIPT*AA.XM*CLFT12* IERR) 

CALL ( lBl"(7,ALPl» 26*XMI,7,CL615»I0RDER,IPT.AA,XM*CLFT15, IERR) 
CL=CLFT12 + (CLFT15-CLFT12)*((TR-.12)/(.15-.I2)) 

5 CALL IBI (7» ALPI »26»XMI »7*CL615* IORDER» IPT* A A * XM • CLFT 1 5 * IERR) 
CL=CLFT15 

GO TO 400 
000 CONTINUE 


IPT 

(1) 

= -l 









IF 

(TR 

.LT. 

.04) 

GO TO 

90 






IF 

(TR 

.GE. 

• 04 

. AND . 

TR 

. LT . 

.06) 

GO 

TO 

10 

IF 

(TR 

.GE. 

.06 

.AND. 

TR 

.LT. 

.09) 

GO 

TO 

20 

IF 

(TR 

.GE. 

.09 

.AND. 

TR 

.LT. 

.12) 

GO 

TO 

30 

IF 

(TR 

.GE. 

.12 

.AND. 

TR 

.LT. 

.15) 

GO 

TO 

40 

IF 

(TR 

.GE. 

.15) 

GO TO 

50 





IPT *XM»CL*AA04» IERR) 

CALL IB 

II ( 26 * XM I 

♦ 9 * CLI 

* 26 

, ALP604, IOROER* 


AA=AA04 
GO TO 400 

10 CALL IBI ( 26 * XMI ♦ 9* CLI * 26* ALP604* IORDER* IPT *XM*CL* AA04* IERR) 

CALL IBI ( 26 *XMI » 9 ♦ CLI » 26* ALPGOGf IOROER* IPT » XM *CL* AA06* IERR) 
AA=AA04 + (AA06-AA04)*( ( TR- . 04) / ( . 06- . 04) ) 


20 CALL IBI (26»XMI »9»CLI »26*ALP606*IORDER* IPT » XM* CL » AA06 » IERR) 

CALL IBI ( 26* XMI »9*CLI *26* ALP609* IORDER* IPT » XM»CL * AA09 * IERR) 
AA=AA06 + (AA09 - AA06)*((TR 06 ) / ( . 09- . 06 ) ) 

GO TO 400 


88 


30 CALL IBI (26>XMI,9,CLI*26*ALP609,IORDER,IPT*XM,CL*AA09,IERR) 
IPT (1) = -1 

CALL IBI (26»XMI»9,CLI»26»ALP612,I0RDER»IPT,XM,CL»AA12,IERR) 
AA=AAo9* ( A A 1 2-A A09 ) * ( ( TR-. 09) / ( . 1 2-. 09) ) 

60 TO 400 

40 Call IBI (26»XMI*9*CLI*26,ALP612, IORDER , I PT * XM, CL , AA1 2, IERR) 
IPT (1) = -1 

CALL IBI (26»XMI ,9*CLI »26*ALP615» IORDER* IPT*XM, CL* AA15* IERR) 
AA = AA12*(AAlb-AA12)*( ( TR- . 1 2 ) / ( . 1 5- . 1 2 ) ) 

GO TO 400 

50 CALL IBI (26* XMI *9* CL I *26* ALPt>15* IORDER* IPT *XM, CL* AA15* IERR) 
AA=AA15 
400 CONTINUE 
IPT ( 1 ) =-l 


IF 

(TR 

.LT. 

. 04) 

GO TO 

91 






IF 

(TR 

.GE. 

.04 

.AND. 

TR 

• L T • 

.06) 

GO 

TO 

11 

IF 

(TR 

.GE. 

.06 

.AND. 

TR 

• LT 9 

.09) 

GO 

TO 

21 

IF 

(TR 

.GE. 

.09 

.ANO. 

TR 

• LT • 

.12) 

GO 

TO 

31 

IF 

(TR 

.GE, 

.12 

.AND. 

TR 

• LT. 

.15) 

GO 

TO 

41 

IF 

(TR 

.GE. 

.15) 

GO TO 

51 







91 CALL IBI (5*CLI I*26*XMi ,5, CD604* IORDER* IPT*CL*XM*CDRG04* IERR) 
CD=CDRG04 
WRITE (6*201) TR 

201 FORMAT(»OTHICKNESS RATI 0=* » F5 . 3 * « IS OUT OF RANGE. 

&*/» THE VALUES FOR T/C=*04 HAVE BEEN RETURNED* ) 

GO TO 250 

11 CALL IBI (5* CLI I ♦ 26* XMI ,5* CD604* IORDER » IPT* CL * XM* CDRG04* IERR) 
IPT (1)=-1 

CALL IBI (5 » CL 1 1 » 26 » XMI * 5 , CD606 ♦ IORDER * IPT * CL » XM* CDRG06 » IERR ) 
CD=CDRG04 ♦ (CDRG06-CDRG04) * ( (TR-.04) / ( .06-.04) ) 

GO TO 250 

21 Call IBI (5*ClII*26,XmI,5,CD606, IORDER* IPT » CL* XM* CDRG06 * IERR) 
IPT (1)=-1 

Call IBI (5«CLI 1*26. XMI *5, CD609, IORDER* IPT* CL *XM» CDRG09 , 1 err) 
CD=CDRG06 ♦ (CDRG09 - CDRG06 ) * ( ( TR- . 06 ) / ( . 09- . 06 ) ) 

GO TO 250 

31 CALL IBI (5*CLII.26,XMI,5*CD609*IORDER*IPT*CL*XM»CDRG09*IERR) 
IPT (1)=-1 

CALL IBI (5*CLI I »26*XMI ,5*CD612» IORDER* I PT * CL » XM » CDRG 1 2 ♦ IERR) 
CD=CDRG09+ (cOkGl2-CDRG09)*( (TR-.09)/(,12-,09) ) 

GO TO 250 

41 Call I B I (5,CLII,26*XMI,5,CD612*I0RDER*IPT,CL*XM*CDRG12,IERR) 
IPT ( 1 ) =- 1 

CALL I B I (5*CLI I *26* XMI *5*CD616* IORDER* IPT*CL* XM*CDRG15» IERR) 
CD=CDRG1 2 ♦ (CDRG15-CDRG12)*( (TR-.12)/(,15-.12) ) 

GO TO 250 

51 CALL IBI (5*CLI I ♦ 26*XMI *5*CD615» IORDER* IPT* CL*XM» CDRG15* IERR) 

CD=CDRG15 

IF (TR .GT. .15) WRITE (6,205) TR 
205 FORMAT (*OTHlCKNESS RAT I0 = * * F5 . 3 * * IS OUT OF RANGE. 

6.*/* THE VALUES FOR T/C=.15 HAVE BEEN RETURNED.*) 

250 IF ( CL .GT. .8) GO TO 251 
RETURN 

251 CALL COMPUT (D,XM* ALT ♦ COR ♦ TR , A A ♦ CDT ♦ CL * CD , CLDES ) 

CD=CDT 



ooooooooooooooooooono 


RETURN 

END 


SUBROUTINE AER07 ( XLD » CL » CD , XM » AA , IKEY,TR,CLDES,ALT,COR,D> 


THIS SUBROUTINE IS DESIGNED TO COMPUTE THE AIRFOIL 
CHARACTERISTICS FOr a 16 SERIES AIRFOIL WITH A GIVEN CAMBER. 

THIS SUBROUTINE RELATES CL»CD»CL/CD»MACH,T/C» AND ALPHA, 

IT REPRESENTS THE DATA OF A 16-7XX AIRFOIL. 

XM=RELATIVE MACH NO. AT BLADE ELEMENT 
AA=ANGLE OF ATTACK IN DEGREES 
IKEYl: CL=CL(MACH, ALPHA, T/C) 

: CO=CD(MACH*CL»T/C) 

JXLD=CL/CD 

IKEY2S ALPHA=ALPHA ( MACH , CL » T/C ) 

: CD=CD (MACH»CL*T/C) 

: XLD=CL/CD 
TR=T/C 


DIMENSION I ORDER (2) , IPT(2) , ALP70 6 ( 26 ♦ 9 ) , 

S, ALP709(26,9) »ALP712(26,9) , 

6 CLI (9) »XMI (26) ,ALPI (7) , 

S, CL706 (7,26) ,CL709(7,26) ,CL712(7,26) » 

5. CD7 09(5.26) »CD712(5,26) ,CD706(5,26) »CLII (5) 


DATA ( (CL706 ( 1 » 

J) » J=1 * 

26) , 1 = 

1 

.112* 

.11B, 

.128, 

.133 

1 

.117* 

.075, 

.010, 

-.071 

1 

-.188* 

101 , 

-.081, 

-.098 

2 

.340* 

.359, 

.381, 

.398 

2 

.379* 

.333, 

.267, 

.190 

2 

-.021 » 

.066, 

.083, 

.068 

3 

.519* 

.569, 

.599, 

.618 

3 

.618* 

.537, 

.435, 

.330 

3 

.153, 

.225, 

.248, 

.225 

4 

.715* 

.768, 

.802, 

.823 

4 

.761, 

.679, 

.592, 

.505 

4 

.381, 

.455, 

.457, 

.431 

DAT A ( ( CL706 ( I ♦ 

J) , J = 1 , 

26) ,1 = 

5 

.852* 

.911, 

.947, 

.973 

5 

.891, 

.813, 

.734, 

.655 

5 

.583* 

.655 , 

.661, 

.628 

6 

.983, 

1.043, 

1.092, 

1.126 

6 

1.057, 

.980, 

.904, 

.827 

6 

.768, 

.837, 

.839, 

.807 

7 

1.135, 

1.201, 

1.252, 

1.282 

7 

1.205, 

1.138, 

1.071, 

1.005 

7 

.975, 

1.040, 

1.036, 

.991 


4)/ 


.140, 

.146, 

.153, 

.157, 

.148, 

-.158, 

-.245, 

-.325, 

-.349, 

-.309, 

-.114, 

-.202, 

-.259, 

-.280, 


.416, 

.424, 

.441 , 

.443, 

.417, 

.094, 

-.013, 

-.129, 

-.151, 

-.115, 

.050, 

-.050, 

-.136, 

-.159, 


. 649 , 

.672, 

.695, 

.705, 

.675, 

.224, 

.118, 

.027, 

.015, 

.076, 

.202, 

.074, 

-.021, 

-.038, 


.843, 

.856, 

.874, 

. 86b , 

.825, 

.418, 

.331, 

.246, 

.246, 

.299, 

.402, 

.231, 

.106, 

.076/ 


7)/ 





1.002, 

1.017, 

1.027, 

1.013, 

.963, 

.577, 

. 498 , 

.445, 

.439, 

.498, 

.594, 

.400, 

.255, 

.186, 


1.163, 

1.182, 

1.183, 

1.168, 

1.126, 

.751, 

.674, 

.615, 

.621, 

.689, 

.767, 

.539, 

.372, 

.297, 


1.329, 

1.345, 

1.339, 

1.315, 

1.268, 

.938, 

.872, 

.818, 

.818, 

.884, 

.943, 

.676, 

.491, 

.403/ 



90 



DATA ( < Cl 

.709(1, 

J ) , J= 1 , 

II 

•» 

O 

OJ 

*4) 

1 

• 1 5Q , 

.164, 

.168, 

.170, 


1 

-.085, 

-.264, 

-.442, 

-.620, 

- * 

1 

— .500 » 

-.392, 

-.321, 

-.312, 

~ • 

2 

.359, 

.388, 

.407, 

.420, 


2 

.180, 

• 04 1 » 

-.125, 

-.291, 

- 1 

2 

-.158, 

-.11&* 

-.120, 

-.125, 

m* • 

3 

.550, 

.594, 

.624, 

.844, 


3 

.429, 

.295, 

.153, 

. 011 , 


3 

.102, 

.097* 

. 086 , 

.076, 


4 

.734, 

.783, 

.814, 

.837, 


4 

.648, 

.527, 

.388, 

.248, 


4 

.322, 

.313, 

.294, 

.277, 


OATA( ( CL709 { I » 

J) * J=1 * 

26) ,1=5 

,7) 

5 

.852, 

.906, 

.958, 

.984, 

1. 

5 

.754, 

.680, 

.597, 

.467, 


5 

.512, 

.506, 

.489, 

.471, 


6 

.961 » 

1.023, 

1.097, 

1.137, 

l! 

6 

.879, 

.798, 

.717, 

.620 , 


6 

.711 , 

.702, 

.678, 

.654, 


7 

1.096, 

1.173, 

1.231, 

1.264, 

l! 

7 

.979, 

.897, 

• 816, 

.734, 


7 

.872, 

.849, 

.827, 

.803, 


DATA ( (CL712 ( I * 

J) * J=1 , 

26) ,1=1 

,4) 

1 

.122, 

.144, 

.154, 

• 164 , 


1 

-.290, 

-.418, 

-.558, 

-.612, 


1 

-.322, 

-.324, 

-.326, 

-.328, 


2 

.320, 

.352, 

.368, 

.380, 


2 

-.115, 

-.245, 

-.381, 

-.459, 


2 

-.159, 

-.162, 

-. 166 , 

-.170, 

- . 

3 

.495, 

.538, 

.559, 

.575, 


3 

. 054 , 

-.083, 

-.219, 

-.318, 

- . 

3 

.003, 

-.003, 

-.009, 

-.015, 


4 

.684, 

.720, 

.748, 

.758, 


4 

.207, 

.084, 

-.038, 

-.119, 


4 

.187, 

. 179, 

.171, 

• 162, 


DATA ( (CL712 ( I » 

J) » J=1 * 

26) , 1=5 

,7) 

5 

.819, 

.875, 

.903, 

.920, 


5 

.372, 

.272, 

.172, 

.091, 


5 

.394, 

.383, 

.370, 

.357, 


6 

.936, 

1.006, 

1.058, 

1.079, 

1. 

6 

.552, 

• 453 , 

.354, 

.281, 


6 

.577, 

.560, 

.544, 

.527, 


7 

1.032, 

1.099, 

1 . 1 5 3 , 

1.182, 

1. 

7 

.691, 

.593, 

.495, 

.402, 


7 

.724, 

.707, 

• 689 , 

.672, 


DATA < (ALP706 ( J 

, N ) ♦ N= 1 

,9) , J=1 

,13 

& 

-8.49, 

-6.74, 

-4.98, 

-3.23, 

-1 

5> 

-8.30, 

-6 . 64 , 

-4.98, 

-3.32, 

-1 

$> 

-8.17, 

-6 . 59 , 

-5.01, 

-3.43, 

-1 

6 

-8.02, 

-6.51 , 

-5.00, 

-3.49, 

-1 

& 

-7.91, 

- 6 , 46 , 

-5.01* 

-3.57, 

-2 

6 

-7.93, 

-6.49, 

-5.05, 

-3.61, 

-2 

& 

-7.84, 

-6 . 46 , 

-5.06, 

-3.67, 

-2 

& 

-7.90, 

-6.50, 

-5.10, 

-3.70, 

-2 


/ 


174, 

. 1 63 , 

• 140 t 

.080, 

.011 

779, 

-.849, 

-.801 » 

-.717, 

-.609 

319, 

-.352, 

-.369, 

-.387, 


433, 

.420, 

.402, 

.348, 

.285 

448, 

-.527, 

-.475, 

-.375, 

-.266 

132, 

-. 181, 

-.210, 

-.210, 


664 , 

.673, 

.640, 

.605, 

.519 

122, 

-.191, 

-.175, 

-.077, 

.043 

066, 

.017, 

-.012, 

-.029, 


856, 

.844, 

.821, 

.771, 

.710 

130, 

.088, 

.095, 

.178, 

.263 

263, 

/ 

016, 

.179, 

.119, 

.076/ 


.997, 

.970, 

.902, 

.828 

337, 

.243, 

.256, 

.334, 

.467 

452, 

.336, 

.253, 

.194, 


127, 

1.107, 

1.057, 

1.007, 

.957 

500 , 

.435, 

.444, 

.529, 

.642 

630, 

.502, 

.391, 

.297, 


239, 

1.193, 

1.147, 

1.101, 

1.055 

644, 

.586, 

.598* 

.689, 

.843 

779, 

/ 

141, 

.634, 

.514, 

.414/ 


.103, 

.051, 

-.044, 

-.167 

625, 

-.593, 

-.522, 

- • 4 1 3 , 

-.338 

331 , 

-.343, 

-.351, 

-.357, 


364, 

.332, 

.264, 

.146, 

.016 

478, 

-.440, 

-.339, 

-.224, 

-.162 

175, 

-.195, 

-.193, 

-.195, 


568, 

.529, 

.442, 

.324, 

.191 

351, 

-.309, 

-.167, 

-.031, 

.001 

021, 

-.041, 

-. 044, 

-.050, 


731, 

.671, 

.573, 

.451, 

.329 

145, 

-.101, 

.043, 

.164, 

.195 

154, 

/ 

873, 

.110, 

.080 , 

.059/ 


.773, 

.673, 

.572, 

.472 

064, 

.115, 

.255, 

.373, 

.400 

344, 

.271, 

.216, 

.171, 


019, 

.950, 

.850, 

.751, 

.652 

253, 

.310, 

.457, 

.583, 

.594 

511, 

.417, 

.348, 

.283, 


125, 

1.061, 

.984, 

.886, 

.788 

377, 

.419, 

.603, 

.727, 

.737 

654, 

. 548 , 

.468, 

.395/ 


)/ 

.33, 

.83, 

3.24, 

6.22, 

8.86 

.61, 

.31* 

2.45, 

5.35, 

7.99 

.83, 

.01 , 

1.98, 

4.73, 

7.35 

.98, 

-.16, 

1.78, 

4.35, 

6.95 

.12, 

-.42, 

1.56, 

3.97, 

6.45 

.17, 

-.58, 

1.39, 

3.79, 

6.22 

.28, 

-.75, 

1.17, 

3.65, 

6.22 

.30, 

-.80, 

1.18, 

3.82, 

6.44 


9 

9 


9 


9 


9 

9 


9 


9 


9 
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& - 8 • 07 ♦ - 6 . 59 , - 5 • 1 0 ♦ 

L -7.95* -6.42* -4.89, 

6, -7.68* -6.13, -4.58, 

& -7.19, -5.63, -4.08, 

6. -6.52, -4.99, -3.46, 
DATA ( ( ALP706 <J,N) * N= 1 1 
6. -5.92, -4.33, -2.75, 

5. -5.34, -3.61* -1.80, 

& -4.77* -2.72* -.35* 

S, -4.52* -2.49* -.18, 

-4.94* -2.88* -.80, 

t. -6.54, -4.14, -1.76, 
& -7.58* -5,l9» -2.79* 
-7.89, -5.4b, -3.01, 
S, -7.64, -5.23, -2.82, 
& -7.49, -5.0b, -2.61, 
& -6.61, -3.97, -1.19, 
& -6.29, -3.04, .33, 

5, -5.98, -2.68, .67, 

DATA ( ( ALP709 ( J » N ) »N=1 

f, -9.55, -7.5b, -5.57, 
L -9.04, -7.2b, -5.46, 
-8.75, -7.08, -5.41, 
& -8.56, -6.96, -5.36, 

8. -8.43* -6.89, -5.34, 
& -8.38, -6.82, -5.27, 

6. -8.12, -6.60, -5.07, 

8. -7.58, -6 , 09 , -4.60, 
8. -7.00, -5.5 4 » -4.08, 
8, -6.38, -4.87, -3.36, 
& -4.89, -3.58, -2.27, 
8, -3.74, -2.47, -1.10, 
8, -2.66, -1.40, -.07, 


OAT A ( ( ALP709 ( J,N) »N=1 


8 . 

-1 .71, 

-. 48 , 

.97, 

8. 

-1.24, 

-.05, 

1.37, 

81 

-1 .50 , 

-.17, 

1.30, 

5> 

-2.15, 

- , 83 , 

• 60 , 

& 

-2.78, 

— 1 • 57 , 

-.28, 

& 

-3.42, 

- 2 . 26 , 

-.78, 

8 . 

-4.06, 

-2 . 6 1 , 

-.92* 

81 

-4.79, 

-2.80, 

— .83, 

8. 

-4.94, 

-2.80, 

-.76, 

8 . 

-4.87, 

-2.73, 

- • 67, 

& 

-4.56, 

-2.22, 

-.17, 

8 . 

-4.39, 

-1.90, 

.18, 

8. 

-4.15, 

-1.89, 

.55, 

DAT A ( (ALP7121 J, 

N ) , N= 1 

& 

-9.27, 

-7.26, 

-5.23, 

8> 

-9.23, 

-7.31, 

-5.38, 

8 

-9.18, 

-7. 31, 

-5.44, 

8 

-9.22, 

-7.37, 

-5.52, 

8 

-8.85, 

-7.06, 

-5.26, 

8 

-8.39, 

-6.6b, 

-4.90, 

8 

-8.23, 

-6.36, 

-4.48, 


-3.61, -2.13, 

-.58, 

-3.37, -1.82, 

-.15, 

-3.03, -1.34, 

.89, 

-2.52, -.42, 

2.11, 

-1.86* .80, 

3.27, 

9) » J=1 4* 26 ) / 

-.37, 1.81, 

4.26, 

.77, 2.83, 

5.16, 

1.58, 3.55, 

5.82, 

1.60, 3.60, 

5.77, 

1.11, 3.02, 

5.07, 

.41, 2.19, 

4.18, 

-.31, 1.52, 

3.45, 

-.58, 1.45, 

3.40* 

-.32, 1.70, 

3.72, 

-.03, 1.98, 

4.07, 

1.61, 4.00, 

6.89, 

3.26, 6.47, 

9.83, 

4.25, 7.94, 

11.72, 

,9) * J=1*13)/ 

—3.58, —1.57, 

.54, 

-3.68, -1.88, 

. 06 , 

-3.73, -2.06, 

-.22, 

-3.76, -2.16, 

-.39, 

-3.80, -2.25, 

-.55, 

-3.71, -2.16, 

— .58 , 

-3.54, -2.02, 

-.34, 

-3.10, -1,60, 

-.04, 

-2.62, -1.02, 

.85, 

-1.84, -.23, 

1.56, 

-.75, .91, 

2.95, 

.40, 2.11, 

4.05, 

1.59, 3.39, 

5.74, 

,9) ,J=14,26>/ 

2.68, 4.77. 

7.39, 

3.45, b .64, 

8. 19, 

3.30, 5.53, 

8.03, 

2.28, 4.68, 

6.89, 

1.43, 3.34, 

5.52, 

. 89 , 2.82, 

4'. 88, 

.95, 2.90, 

4.96, 

1.10, 3.09, 

5.17, 

1.23, 3.27, 

5.41, 

1.36, 3.45, 

5.66, 

2.27, 4.77, 

7.48, 

3.21, 6.15, 

9.40, 

4.12, 7.76, 

11.18, 

1,9) , J=l,13)/ 

9 -3.21, -1.09* 

1.11, 

9 -3«46 9 -l»48t 

.68, 

9 — 3*57f — 

.43, 

, -3«67 9 -1.79* 

.27, 

9 -3 • 47 9 - 1 • 65 9 

.39, 

, -3.159 -1.319 

1.00, 

9 — 2 • 60* — • 47 9 

2.54, 


1.67, 

4.45, 

7.04, 

2.60, 

5.31, 

7.93, 

3.81, 

6.25, 

8.78, 

4.78, 

7.15, 

9.54, 

5.69, 

7.94, 

10.19/ 

6.52, 

8.66, 

10.80, 

7.27, 

9.29, 

11.31, 

7.82, 

9.79, 

11.76, 

7.82, 

9.85, 

11.88, 

7.14, 

9.19, 

11.24, 

6.31, 

8.24, 

10.17, 

5.59, 

7.61, 

9.58, 

5.56, 

7.63, 

9.66, 

5.92, 

8.10, 

10.27, 

6.38, 

8.65, 

10.92, 

9.81, 

12.73, 

15.65, 

13.19, 

16.55, 

19.92, 

15.49, 

19.26, 

23.04/ 

3.12, 

6.58, 

9.54, 

2.28, 

5.61, 

8.36, 

1.85, 

4.60, 

7.54, 

1.62, 

4.21, 

6.99, 

1.42, 

3.80, 

7.30, 

1.49, 

4.05, 

8.16, 

1.77, 

4.69* 

9.18, 

2.44, 

5.87, 

10 . 11 , 

3.53, 

6.88, 

10.96, 

4.74, 

8.42, 

12.42, 

6.04, 

10 . 08 , 

14.12, 

7.68, 

11.72, 

15.76, 

9.16, 

12.67, 

16.18/ 

10.17, 

12.94, 

15.72, 

10.83, 

13.48, 

16.13, 

10.62, 

13.22, 

15.82, 

9.39, 

11.89, 

14.39, 

7.57, 

9.56, 

11.55, 

7.11, 

9.59, 

12.07, 

7.33, 

10.05, 

1 12.78, 

7.64, 

10.32, 

> 13.01, 

7.96, 

10.64, 

1 13.33, 

8.28, 

10.97, 

» 13.65, 

10.52, 

13.55, 

, 16.58, 

12.65, 

15.90, 

19.15, 

14.60* 

18.02, 

21.44/ 

3.72, 

7.33 

11. bO, 

3.03, 

5.91 

10.17, 

2.67, 

5.25 

8.99, 

2.52, 

5.01 

8.35, 

2.97, 

5.74 

9.42, 

4.31, 

6.90 

10.50, 

5.44, 

8.24 

11.22, 
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S» -7.75, -5,64, 

-3.54, 

-1.39, 1.20, 

4.31, 

6.73, 9.69, 

12.65, 

8, -6.55. -4.36. 

-2.17, 

.13, 2.99, 

5.42, 

8.18, 11.12, 

14.06, 

& -5. 26 » -2.97. 

-. 64 , 

1.91, 4.31, 

6.69, 

9.57, 12.45, 

15.32, 

8. -3.79. -1.44. 

.99, 

3.23, 5.41, 

8.10, 

10.96, 13.81, 

16.67, 

6 -2.21. .21. 

2.36, 

4.31, 6.65, 

9.49, 

12.33, 15.16, 

18.00, 

6 -1.16. 1.19. 

DATA ( (ALP712U. 

3.13, 
N) , N= 1 , 

5.15, 7.97, 

9) , J=14,26)/ 

11.27, 

14.58, 17.88, 

21.19/ 

8, — .77. 1. 47 ♦ 

3.39, 

5.44, 8.37, 

11.60, 

14.82, 18.05, 

21.27, 

& -1.39. 1.05, 

2.94, 

4.87, 7.65, 

11.32* 

14.99, 18.66, 

22.33, 

& -2.67. -.38* 

1.59, 

3.48, 5.44, 

7.96, 

10.70, 13.44, 

16.18, 

6 -3.86. -1.7b. 

.32, 

2.34, 4.26, 

6.24, 

9.01, 11.79, 

14.57, 

8. -4 . 7 0 » -2.43. 

-.01, 

2.05, 4.00, 

6 . 08 , 

8.88, 11.68, 

14.48, 

& -4 . 96 » -2 , 50 . 

-.04, 

2.13, 4.07, 

6.31, 

9.03, 11.76, 

14.48, 

8, -4.94, -2.47, 

.03, 

2.21, 4.19, 

6.54, 

9.27, 11.99, 

14.71, 

6 -4.93, -2.43, 

• 10, 

2.29, 4.34, 

6.77, 

9.53, 12.29, 

15.05, 

6 -4 . 9 1 , —2 • 38 » 

.17, 

2.39, 4.51, 

7.01, 

9.77, 12.52, 

15.28, 

Si -4.88, -2.32, 

.24, 

2.48, 4.67, 

7.24, 

10.04, 12.84, 

15.64, 

6 -4.77, -2.07. 

.54, 

3.12, 5.77, 

8.79, 

11.85, 14.90, 

17.95, 

8. -4.62, -2.09, 

.71, 

3.76, 6.87, 

10.20, 

13.53, 16.87, 

20.20, 

Si -4.53, -2,0b. .92, 4.52, 8.09, 

DATA ( (CD706 ( I ♦ J> ♦ J= 1.26), 1=1.5)/ 

11.66, 

15.23, 18.80, 

22.38/ 

1 .0265. .0282, 

.0288, 

.0291, .0294, 

.0296, 

.0297, .0300, 

.0317 , 

1 .0350, ,0393. 

.0435, 

.0483, .0535, 

.0586, 

.0637, .0689, 

.0740, 

1 .0766, .0782. 

.0798, 

.0805, .0812, 

.0749, 

. 060 0 , . 0497 , 

.0221, 

2 .0177, .0183, 

.0185, 

.0186, .0187, 

.0185, 

.0189, .0199, 

2 .0259, .0308, 

.0356, 

.0402, .0447, 

.0493, 

.0540, .0588, 

.0633, 

2 .0671, .0709, 

.0747, 

• 0774, .0797, 

.0778, 

.0684, .0582, 

.0124, 

3 .0080, .0082, 

. 0 085» 

.0086, .0090, 

.0094, 

.0100, .0108, 

3 .0157, .0201, 

.0244, 

.0300, .0374, 

.0448, 

.0529, .0615, 

.0687 , 

3 .0739, .0784, 

.0817, 

.0851, .0875, 

.0920, 

.0911, .0901, 

.0092, 

4 .0067, .0068. 

.0069, 

.0069, .0069, 

.0070, 

.0073, .0081, 

4 .0112, .013b, 

.0195, 

,0267, .0349, 

• 0466 , 

.0588, .0691, 

.0769, 

4 .0847, .0901, 

.0953, 

.1006, .1047, 

.1223, 

.1371, .1512, 

.0109, 

5 .0067, .0068, 

.0068, 

.0069, .0069, 

.0069, 

.0074, .0084, 

5 .0139, .0187, 

.0263, 

.0389, .0547, 

.0719, 

.0889, .1051, 

.1208, 

5 .1349, .1470, 

DAT A ( ( CD709 ( I ♦ < 

.1560, 
J) , J=1 , 

.1621, .1681, 
26) ,1=1,5)/ 

.1998, 

.2300, .2478/ 

.0439, 

1 .0245, .0304, 

.0333, 

.0348, .0363, 

.0374, 

.0386, .0410, 

1 .0488, .0537, 

. 0586 * 

.0635, .0684, 

.0733, 

.0790, .0854, 

.0919, 

1 .0983, .1023, 

.1042, 

.1060, .1063, 

.1021, 

.0878, .0696, 


2 .0140, .0170, 

.0189, 

.0200, .0211, 

.0217, 

.0225, .0261, 

.0308, 

2 .0355, .0402, 

.0450, 

.0502, .0553, 

.0604, 

.0655, .0705, 

.0755, 

2 .0805, .0855, 

.0898, 

.0908, .0918, 

.0907, 

.0853, .0730, 

.0231, 

3 .0093, .0096, 

.0100, 

.0102, .0104, 

.0106, 

.0128, .0179, 

3 .0283, .0334, 

.0397, 

.0470, .0542, 

.0617, 

.0698, .0779, 

.0859, 

3 .0925, .0980, 

. 1034, 

.1068, .1083, 

.1084, 

. 1063, . 1 024, 


4 .0076, .0078, 

.0078, 

.0078, .0081, 

.0083, 

.0105, .0132, 

.0180, 

4 .0241, .0301, 

.0362, 

.0423, .0528, 

. 0665 , 

.0802, .0936, 

.1042, 

4 .1148, .1233, 

.1285, 

.1336, .1388, 

.1492, 

.1529, .1551, 

.0205, 

5 .0077, .0077, 

.0078, 

.0079, .0080, 

.0082, 

.0110, .0158, 

5 .0253, .0360, 

.0481, 

.0602, .0723, 

.0899, 

.1097, .1295, 

• 1475, 

5 .1644, .1813, 
DAT A ( ( CD7 12 ( I , 

.1957, 
J) , J=l» 

.2029, .2101, 
26) ,1=1,5)/ 

.2435, 

.2569, .2654/ 

.0568, 

1 .0221, .0315, 

.0362, 

.0386, .0426, 

.0454, 

.0492, .0530, 

1 .0606, . 0666 , 

.0734, 

.0802, .0872, 

.0952, 

.1032, .1112, 

.1196, 
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1 • 1283, .1371* .1441, .1457, .1473, .1408, .1201, .0934, 

2 .0130, .0146* .0154, .0161, .0176, .0195, .0242, .0325, .0403, 

2 .0470, .0544, .0620, .0709, .0807, .0905, .0998, .1091, .1184, 

2 .1272, .1348, .1423, .1480, ,1504, .1474, .1252, .0990, 

3 .0110, .0113, .0118, .0120, .0128, .0150, .0201, .0265, .0330, 

3 .0418, ,050b, .0594, .0709, .0825, .0940, .1044, .1148, .1253, 

3 .1350, .1447, .1541, .1589, .1637, .1600, .1469, .1324, 

4 .0099, .0099, .0099, .0099, .0099, .0110, .0162, .0222, .0284, 

4 .0378, .0476, .0574, .0701, .0849, .0997, .1147, .1297, .1434, 

4 .1568, .1696, .1778, .1861, .1909, .1992, .1923, .1824, 

5 .0099, .0099, .0099, .0099, .0103, .0126, .0182, .0239, .0367, 

5 .0499, .0661, .0836, .1023, .1198, .1367, .1508, .1637, .1766, 

5 .1891, .2012, .2134, .2245, .2346, .2764, .2948, .3025/ 

DATA ( XMI (J) ,J=1, 26)/. 3, .5, .6, .65, .7, .725, .75, .775, 

8. .8, .825 ,.85 ,.875,. 9,. 925,. 95,. 975, 1.0, 1.025, 1.05, 1.075, 

M. 1,1. 125, 1.15, 1.3, 1.45, 1.6/ 

DATA (CLI (J) ,J= 1,9)/-. 4, -.2, 0.0, .2*. 4, .6, .8, 1.0, 1.2/ 

DATA(ALPl (J) ,J=1, 7)/ -4. 0,-2. 0,0. 0,2.0, 4. 0,6.0, 8,0/ 

DATA (CLII(J)*3=l»5)/0.0».2,.4,.6,.8/ 

IORDER ( 1 ) =I0HDER<2) =1 
I FT (1) = -1 

IF (IKEY .EQ. 2) GO TO 1000 
IF (TR .IT. .06) GO TO 1 

IF (TR .GE. .06 .AND. TR .LT. .09) GO TO 2 
IF (TR .GE. .09 .AND. TR .LT. .12) GO TO 3 
IF (TR .GE. .12) GO TO 4 

1 CALL I B I (7 , ALPI , 26, XMI ,7 , CL706, IORDER, IPT , AA, XM, CLFT06, IERR ) 
CL=CLFT06 

GO TO 400 

2 CALL IBI ( 7 , ALP 1 ,26, XMI , 7, CL706, IORDER, IPT ,AA,XM,CLFT06,IERR) 
IPT (1)=-1 

CALL IBI ( 7 , ALPI * 26 » XMI • 7 * CL709 * I ORDER* IPT * A A , XM * CLFT09 • I ERR ) 
CL=CLFT06 * (CLFT09 - CLFT06) * < ( TR-, 06) / ( . 09-. 06) ) 

GO TO 400 

3 CALL IBI (7,ALPI,26, XMI, 7, CL709, IORDER, IPT, AA,XM,CLFT09,IERR) 
IPT ( 1 ) =-l 

CALL IBI (7 , ALPI ,26, XMI , 7 , CL712, IORDER , IPT , AA, XM,CLFT12, IERR) 
CL=CLFT09* (CLFT12-CLFT09)* ( ( TR- . 09 ) / ( . 12- . 09 ) ) 

GO TO 400 

4 CALL IBI (7»ALPI»26»XMI*7*CL712» IORDER ,IPT,AA,XM,CLFT12,IERR) 
CL=CLFT12 

GO TO 400 
1000 CONTINUE 

IPT (1)=-1 

IF (TR .LT. .06) GO TO 10 

IF (TR .GE. .06 .AND. TR .LT. .09) GO TO 20 
IF (TR .GE. .09 .AND. TR .LT. .12) GO TO 30 
IF (TR .GE. .12) GO TO 40 

10 CALL IBI (26» XMI , 9,CL I , 26, ALP706, IORDER, IPT ,XM,CL, AA06, IERR) 
AA=AA06 
GO TO 400 

20 CALL IBI ( 26 , XMI , 9 , CL I , 26, ALP706 , IORDER , IPT , XM , CL, AA06 , I ERR ) 
IPT (1) = -1 „„ 

CALL IBI ( 26»XMI *9 ,CLI , 26, ALP709 , IORDER, IPT, XM,CL, AA09 , IERR) 

AA = AA06 ♦ (AA09 - AA06)M(TR - . 06 ) / ( . 09- . 06 ) ) 
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GO TO 400 

CALL IBI (26»XMI*9»CLI *26, ALP709, IORDER, IPT, XM,CL»AA09, IERR) 
IPT (1) = -1 

CALL IBI (26»XMI,9,CLI»26,ALP712,I0R0ER»IPT*XM,CL»AA12*IERR) 
AA=AA09*(AA12-AA09)*( (TR-. 09) / ( . 12-. 09) ) 

GO TO 400 

40 CALL IBI (26«XMI,9*CLI»26*ALP712, IORDER, IPT»XM,CL»AA12, IERR) 
AA=AA12 

400 CONTINUE 
IPT (1)=-1 

IF (TR .LT. .06) GO TO 11 

IF (TR .GE. .06 .AND. TR .LT» .09) GO TO 21 
IF (TR .GE. .09 .AND. TR , LT . .12) GO TO 31 
IF (TR .GE. .12) GO TO 41 

11 CALL IBI (5*CLII,26,XMI,5,CD706,IORDER,IPT»CL»XM»CDRG06,IERR) 
CD=CDRG06 
WRITE (6,206) TR 

206 FORMAT (»0THlCKNESS RAT 1 0=* , F5 . 3 » * IS OUT OF RANGE. 

S,*/* THE VALUES FOR T/C=.06 HAVE BEEN RETURNED. *) 

GO TO 250 

21 CALL IBI (5*CLH »26» XM 1 , 5» CD706, IORDER » I PT » CL, XM »CDRG0 6, IERR) 
IPT ( 1 ) =-l 

CALL IBI (5,CLlI,26,XMI,5,CD709,IORDER.IPTtCL»XMtCDRG09,IERR) 
CD=CDRG06 ♦ (CDRG09 - CDRG06 ) * ( ( TR- . 06 ) / ( . 09-. 06 ) > 

GO TO 250 

31 CALL IBI (5.CLI I ,26,XMI ,5, CD709, IORDER, IPTt CL t XM»CDRG09» IERR) 

IPT (1)=-1 

CALL IB I (5,CLI I »26,XMI ,5,CD712» IORDER, IPT* CL ,XM*CDRG12» IERR) 
CD=CDRG09* (CORGI 2-CDRG09) *( ( TR-. 09 ) / ( . 1 2- . 09 ) ) 

GO TO 250 

41 CALL IBI (5»CLII,26*XMI,5,CD712,I0R0ER»IPT*CL*XM.CDRG12,IERR) 
CD=CDrG12 

IF (TR .GT. .12) WRITE (6*207) TR 

207 FORMAT(*OTHICKNESS RAT 1 0=* , F5 . 3 » * IS OUT OF RANGE. 

S.*/* THE VALUES FOR T/C=.12 HAVE BEEN RETURNED.*) 

250 IF (CL .GT. ,b) GO TO 251 
RETURN 

251 CALL COMPUT (0,XM* ALT * COR , TR , AA» CDT » CL » CD, CLDES ) 

CD=CDT 

RETURN 

END 


SUBROUTINE IBI ( NX, X, NY ,Y,MAXF,F, IORDER* IPT » XO , YO • Z , I ERR ) 

C 

c 

C«* ***« »****««***#* <nt ««««»« ** ** »«• ** «» ** 

C* 

C* PURPOSE 
C* 

c* first or second order lagrangian intepolation fop a bivariate 

C* FUNCTION z = F ( XO * YO ) • THE ORDER OF INTERPOLATION IN THE X 

c* direction may differ from the order in the y direction, values 
C* IN THE X and y arrays need not be equally spaced* nor do the X 


a 

« 

fl 

« 

« 
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AND Y ARRAYS REQUIRE THE SAME NUMBER OF ELEMENTS* THE X AND Y * 
ARRAYS EACH REOUIPE AT LEAST TWO ELEMENTS FOR FIRST ORDER INTERP-* 

OLATION and at least three points for second order interpolation.* 

F MUST BE KNOWN AT THE NODE POINTS (X(I)tY(J))* 

rue program USES INTERNAL POINTERS IN THE X AND Y DIRECTIONS 
TO BEGIN SEARCHES. THESE POINTERS CONTAIN THE INDICES OF THE X 
AND Y MESH LINES NEAREST THE PREVIOUS (X0»Y0>. THESE POINTERS 
JrE USED TO MINIMIZE THE SEARCH TIMES BASED ON THE PREMISE THAT 
IN SCIENTIFIC INTERPOLATION SUCCESSIVE POINTS TO BE INTERPOLATED 
WILL BE FOUNO IN THE SAME OR NEARBY GRID RECTANGLES. 


C« 

c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 

C» USE 

c* 
c* 
c* 

C» PARAMETERS 
C* 


CALL I B I (NX»X,NY»Y»MAXF,F» I ORDER, IPT»X0»Y0»Z»IERR) 


C* 

c* 

c* 

c« 

c* 

c* 

CO 

CO 

c* 

Co 

CO 

c* 

CO 

Co 

C* 

CO 

Co 


NX- 


NY- 


■AN INPUT INTEGER SPECIFYING THE NUMBER OF DATA POINTS FOR 
THE FIRST INDEPENDENT VARIABLE. * 

-ONE INPUT INDEPENDENT VARIABLE ARRAY DIMENSIONED AT LEAST * 
NX IN THE CALLING PROGRAM. UPON ENTRY TO IBI. X(I) MUST < 
CONTAIN THE I-TH VALUE OF THE FIRST INDEPENDENT VARIABLE < 
AT WHICH THE FUNCTION IS KNOWN. \ 

X MUST BE STRICTLY INCREASING, X ( !♦ 1 ) > X ( I ) . J 

-AN INPUT INTEGER SPECIFYING THE NUMBER OF DATA POINTS FOR * 
THE SECOND INDEPENDENT VARIABLE. 


Y THE OTHER INPUT INDEPENDENT VARIABLE ARRAY DIMENSIONED AT 

r I FAST NY IN THE CALLING PROGRAM. UPON ENTRY TO IBI* Y(J) 
MUST CONTAIN THE J-TH VALUE OF THE SECOND INDEPENDENT 
VARIABLE AT WHICH THE FUNCTION IS KNOWN. 

Y MUST BE STRICTLY INCREASING, Y(J+1)>Y(J). 


C* 

C* 

C* 

C* 

c* 

c* 

c* 

c* 

c» 

c* 

c* 

c* 

c* 

c* 

c* 

c» 

c« 

c» 

c* 

c* 


MA X F AN INPUT INTEGER GIVING THE MAXIMUM ROW DIMENSION OF F IN 

THE CALLING PROGRAM. 


-THE INPUT TABLE OF DEPENDENT VARIABLE (FUNCTIONAL) VALUES 
DIMENSIONED F ( MAXF , NY ) IN THE CALLING PROGRAM. ACTUALLY 
F MAY HAVE MORE THAN NY COLUMNS BUT NOT MORE THAN MAXF ROW 
UPON ENTRY TO IBI. F(I,J) MUST CONTAIN THE FUNCTIONAL 

VALUE AT (X (I) *Y( J) ) . 


IORDER-AN INTEGER INPUT ARRAY OF INTERPOLATION ORDERS. DIMENSION 
IORDER ( 2 ) • 


IORDERU) — ORDER OF INTERPOLATION FOR X. 
I ORDER ( 2 ) --ORDER OF INTERPOLATION FOR Y, 


=1 FIRST ORDER INTERPOLATION. 
=2 SECOND ORDER INTERPOLATION. 
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c* 

o 

c# 

C» 

c* 

c# 

c* 

c» 

c* 

c* 

c» 

c* 

c* 

c* 

c* 

c» 

c* 

c* 

c* 

c* 

o 

c» 

c* 

c* 

c* 

c» 

c* 

c* 

c* 

c* 

c* 

c» 

c* 

c* 

c» 

c* 

c* 

c* 

C* 

C* 

c* 

c* 

c* 

c* 

c» 

c* 

c» 

c* 

c* 

c» 

c* 

c* 

c* 

c* 

c* 


IPX an input/output integer array with the following funct ions< 

DIMENSION IPT (2) • < 

i 

INPUT— INITIALIZATION OF IBI AND CHECK ARRAYS X AND Y. < 

H 

= -1 WHENEVER A NEW X OR Y ARRAY IS INPUT* THIS < 

VALUE OF IPT ( 1 ) SHOULD BE SPECIFIED BY THE < 

USER TO iNlflALIZE IBI AND CHECK THAT ARRAY 
X IS STRICTLY INCREASING WITH AT LEAST NX < 

POINTS AND ARRAY Y IS STRICTLY INCREASING WITH- 
AT LEAST NY POINTS. 

output-index POINTER. 

IPT ( 1 ) -THE X INDEX POINTER. 

= K INDICATES THAT ABS (XO-X <K) ) <ABS (XO-X ( I ) ) 

1 = 1 * ... * NX I"K* THAT IS* X(K) IS THE 
NEAREST MESH LINE TO XO. IF 
EXTRAPOLATION WAS USED (IERR=-3) I PT ( 1 > 

=0 ON RETURN IF X0<X(1) AND IPT(1)=NX IF 
X0>X ( NX ) . ON THE NEXT CALL K IS USED AS 
THE INDEX OF X WHERE THE SEARCH FOR XO 
BEGINS. 

IPT (2) -THE Y INDEX POINTER. 

= J INDICATES THAT ABS ( YO-Y ( J) ) <A8S ( YO-Y ( I ) ) 
1=1*. ..*NY I»J, THAT IS* Y(J) IS THE 
NEAREST MESH LINE TO YO. IF 
EXTRAPOLATION WAS USED (IERR=-3> IPT<2) 

=0 ON RETURN IF Y0<Y(1) AND IPT(2)=NY IF 
Y0>Y (NY) , ON THE NEXT CALL* J IS USED 
AS THE INDEX OF Y WHERE THE SEARCH FOR 
YO BEGINS. 

XO —THE INPUT X POINT WHERE INTERPOLATION IS DESIRED. 

YO THE INPUT Y POINT WHERE INTERPOLATION IS DESIRED, 

Z the OUTPUT interpolated value of the function AT (X0*Y0), 

Z=F(X0»Y0) . 

IERR INTEGER OUTPUT ERROR CODE GENERATED AND RETURNED BY IBI. 

= 0 NORMAL RETURN. NO PROBLEMS ENCOUNTERED. 

=-l THE X OR Y ARRAY WAS NOT STRICTLY increasing. 

NO INTERPOLATION PERFORMED. 

=-2 INSUFFICIENT VALUES IN X OR Y TO PERFORM THE ORDER OF 
INTERPOLATION REQUESTED* POSSIBLY USER INPUT NX OR NY 
INCORRECTLY. NO INTERPOLATION PERFORMED. 
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.*> 

c* 

c* 

c* 

c* 

c* 

c* 

c* 


=-3 EXTRAPOLATION used, the value z returned may be quite* 
INACCURATE. * 

=-4 I ORDER ( 1 ) OR I0RDER(2) NOT CORRECTLY INPUT BY USER * 
AS 1 OR 2. NO INTERPOLATION PERFORMED. * 

ft 

THE USER SHOULD TEST IERR ON EACH RETURN FROM IBI. * 

■ft* 


C* REQUIRED ROUTINES 
C* 

C* MONO* FINDERt LAGRAGt INDIXR. 

C* 

C» 

C* AUTHOR/IMPLEMENTER 

c* 

C* S. BAUDENDISTEL/G.W. HAIGLER. 

c* 

C» LANGUAGE 

c* 

C* FORTRAN. 

c* 

C* DATE RELEASED 
C* 

r.* AUGUST 15. 1973 

C* 

C* LATEST REVISION 
C» 

C* AUGUST 15» 1973 

C I B I 1 S 

DIMENSION X ( 1 ) » Y ( 1 ) . F (MAXF ♦ 1 ) »P ( 3) » S ( 3) » IPT ( 2) * IORDER ( 2) 


» 

« 

« 

« 

* 

* 

ft 

« 

ft 

» 

« 

« 

« 

* 

» 

» 

* 

* 

* 

« 


C 

C 

c 


c 

c 

c 


c 

c 

c 

c 

c 


IF ( IPT ( 1 ) .NE.-l ) GOTO 10 

INITIALIZE AND CHECK X»Y ARRAYS ARE STRICTLY INCREASING. 

IERR=-1 „ „ 

IF(MONO(NX,X»IPT(l) ) .LT.O) RETURN 

IF (MONO (NY, Y» IPT <2> J.LT.O) RETURN 

IPT( 1) =IPT (2) =1 

CHECK THAT lORDER(l) AND IORDER (2) ARE 1 OR 2 ONLY, 

10 IERR=-A 

IF ( IORDER ( 1 ) * NE, 1 • AND. IORDER ( 1 ) .NE.2)RETURN 
IF (IORDER (2) .NE.l.AND.IORDER(2) .NE. 2) RETURN 

CHECK THAT THERE ARE SUFFICIENT POINTS IN X ARRAY TO DO IORDER(l) 
INTERPOLATION AND SUFFICIENT POINTS IN Y ARRAY TO DO I0RDER(2) 
INTERPOLATION. 

IERR=-2 

IF (NX-l.LT. IORDER ( 1) ) RETURN 
IF (NY-1. LT. IORDER (2)) RETURN 
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IERR = 0 


SEARCH FOR THE X AND Y MESH LINES NEAREST TO X0»Y0 AND RECORD 

these indices in iptu) and i pt ( 2 > . 

CALL FINDER (X0»X»IPT(1) »NX»M* IERR) 

CALL FINDER (Y0,Y, IPT (2) ,NY,N»IERR) 

OBTAIN INDICES FOR Y DIRECTION INTERPOLATION TABLE LOOK UP. 

CALL INDIXR(IPT<2) * I ORDER (2) * YO ♦ KL , KR , Y , NY ) 

KM=KL+1 


DETERMINE THE LAGRANGIAN INTERPOLATING COEFFICIENTS FOR Y 
DIRECTION INTERPOLATION. 

CALL LAGRAG(YO,Y(KR) ,Y(KM) , Y ( KL ), P , IORDER < 2 ) ) 

OBTAIN INDICES FOR X DIRECTION INTERPOLATION TABLE LOOK UP. 

CALL INDIXR(IPT(1) , IORDER(l) » XO > LL , LR » X , NX ) 

LM=LL+ 1 

DETERMINE THE LAGRANGIAN INTERPOLATING COEFFICIENTS FOR X 
DIRECTION INTERPOLATION. 

CALL LAGRAG(XO,X(LR) *X (LM) , X (LL) , S , IORDER ( 1 ) ) 

COMPLETE LAGRANGIAN INTERPOLATION BY COMPUTING THE DOUBLE SUM 
OF PRODUCTS. 


Z = 0. 

LP1 = 0 

DO 30 I=LL*L« 

LP 1 =LP 1 ♦ 1 
SUM=0. 

KP 1 = 0 

DO 20 J=K[_»KR 
KP 1 =KP 1+1 

20 SUM=P(KP1)*F(I*J)+SUM 
30 Z=SUM*S(LP1) + Z 

IF < IERR. GE.O) RETURN 
IPT ( 1 ) =M $ IPT(2)=N 
RETURN 
END 


SUBROUTINE COMPUT (D» XM, ALT , COR, TR t ALPHA* CD . CL f CDINPUT » CLDES) 
DIMENSION CDAKAY(lltl) »CLARAY(6,9) ♦CLMXAR ( 10 t 12) 

DIMENSION ALPHAO(ll) ♦RN1 (3) ,CLDSIN(4) * DELALR ( 1 0 » 3 ) » ALCLMX ( 10* A) 
DIMENSION IPT (2) » IORDER (2) 

DIMENSION TRO ( 10) »RNO (12) »CLMAX0 (6) .DELALO (9) 

DATA ( (CDARAY (I , J) t 1= 1 t 1 1 ) » J=1 » 1 ) / 0.00» 0.00» .07, .29, 

1 .42, .53, .67, .81, .96, 1.15, 1.28/ 
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DATA ( (CLARAY(KtL) »K=1»6) »L=1»9) 


1 

0.800 

, 0.980, 

1.200, 

1.400, 

2 

1.080 

, 1.290, 

1.380, 

1.540, 

3 

1.200 

, 1.345, 

1.415, 

1.565, 

4 

1.200 

, 1.330, 

1.405, 

1.550, 

5 

1.180 

, 1.305, 

1.380, 

1.520, 

6 

1.175 

, 1.290, 

1.365, 

1 .505, 

7 

1.170 

, 1.280, 

1.355, 

1.495, 

8 

1.170 

, 1.270, 

1.345, 

1.490, 

9 

1.170 

, 1.260, 

1.335, 

1.480, 

DATA ( (CLMXAR(M,N) ,M=1, 

10) ,N=1 , 

1 

.750, 

.750* .750* 

.752, 

.760, 

2 

.750, 

.750* .750* 

.760, 

.790, 

3 

.750, 

. 750 * . 760 * 

.780, 

.840, 

4 

.750, 

.750* .760* 

.790, 

.900, 

5 

.750* 

.750* .760* 

.800, 

.960, 

6 

.750, 

. 750 * . 768 * 

.825, 

1.010, 

7 

.750, 

• 750 * .770* 

.850, 

1.080, 

8 

.760, 

.760* .820* 

.870, 

1.110, 

9 

.770, 

.775* .795* 

.905, 

1.145, 

« 

.800, 

.800* • 825 * 

.950, 

1.175, 

1 

.800, 

.800* .870* 

.995, 

1.200, 

2 

.815, 

.820* .945* 

1.095, 

1 .245, 

DATA ( (DELALR (I »J> 

,1= 1, 

10), J= 1 

1 

-2.2, 

-1.5, -1.1 

, -1.2, -2.3, 

2 

0., 0 

. 

1 

. 

cr 

* 

i 

»-» 

• 

2, -1. 

1 * - • 2 * 

3 

0., 0 

• * 0,* .4* 

1.05, 

• 65 * 0 • * 


/ 


1.600, 

1.800, 

1.770, 

1.985, 

1.790, 

2.010, 

1.770, 

1.990, 

1.745, 

1.960, 

1.725, 

1.940, 

1.710, 

1.925, 

1.700, 

1.915, 

1.690, 

1.905/ 

!) / 



.790, 

.820, 

.832, 

.840, 

.840, 

.835, 

.860, 

.870, 

.872, 

.870, 

.895, 

.920, 

.930, 

.930, 

.920, 

.965, 

.990, 

1.000, 

1.000, 

.990, 

1.045, 

1.075, 

1.078, 

1.063, 

1.040, 

1.110, 

1.140, 

1.140, 

1.120, 

1.080, 

1.205, 

1.240, 

1.235, 

1.200, 

1.135, 

1.245, 

1.280, 

1.270, 

1.230, 

1.160, 

1.265, 

1.300, 

1.290, 

1.255, 

1.200, 

1.285, 

1.320, 

1.320, 

1.300, 

1.270, 

1.300, 

1.335, 

1.340, 

1.330, 

1.315, 

1.350, 

1.380, 

1.375, 

1.360, 

1.350/ 

,3) 

/ 




— 4 . , — 

4., -4. 

* -4 • * 

-4., 


0 . , — . 

2* *-l»7* -4«f 



- • 2, 

-1.7, - 

4./ 




DATA < (ALCLMX(I,J) ,1=1*10) *J=1»4) / 

1 9 , , 9., 9.5, 10.9, 13., 15.3, 16.4, 19., 18,2* 20.0, 

2 10., 10., 10.2, 11.5, 14.2, 16., 17., 17.7, 19., 10.8, 

3 11., 11., ll., 12.3, 14.8, 16.6, 17.8, 18.7, 20., 21.8, 


4 11.8, 11.6, 11.6, 

13., 15.5, 

17.3, 

18.5, 

19.5, 

20.6, 

22.4/ 

DATA RN1 /l.* 3., 
DATA CLDSIN / 0., 
DATA TPO / .04, 

9./ 

.2, .4, .6/ 
.06* .08, 

.10, 

.12, 

.14, 

.16, 

.18, 

1 .20, .22/ 

DATA RNO / 1.0, 

1.2, 1.4, 

1.6, 

1.8, 

2.0, 

2.5, 

3.0, 


1 4.0, 5.0, 6.0, 9.0/ 

DATA CLMAXO / .8, 1.0, 1.2, 1.4, 1.6, 1.8/ 

DATA DELALO / 0., 4.0, 8., 12., 16., 20., 24., 28., 


1 32./ 

DATA AlPHAO /O.* 5., 10., 15., 20., 25., 30., 35., 40., 

1 45., 50./ 

IORDER ( 1 ) = iORDER ( 2) = 1 
CALL ATMOS ( ALT,RHO,SOS,T) 

V= XM«SOS 
CHORD= C0R*D/2. 

XMUU= MU, BUT MU SHOULD BE DIVIDED BY 1 MILLION 

ALSO REYNOLDS NUMBER WILL BE 1 MILLIONTH OF ITS ACTUAL VALUE 
XMUU= ( • 1E-09)*.3170*T**1.5*734.7/(T +216.) 

RN= (RH0»V*CH0RD) /XMUU/(.1E 07) 


IPT ( 1 ) = -1 _ 

CALL IBI (10*TR0, 12, RNO, 10, CLMXAR, IORDER, IPT, TR,RN,CLMAX,IERR) 

IPT ( 1 ) = -1 

CALL IBI (10»TR0,3,RN1,10,DELALR, IORDER, IPT, TR,RN, 
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1DALPRN, IERR) 

IPT ( 1 ) = -1 

CALL IBI (10»TRO*4,CLDSIN*10#ALCLMX»IORDER»IPT* 
1TR»CLDES,APCLMX,IERR) 

ALPCLM= APCLMX +DALPRN 
DELALP= ALPHA -ALPCLM 
IPT ( 1 ) = -1 

IF <DELALP.lE«0.0> GO TO 48 
WRITE (6*400) ALPHA 

400 FORMAT (*0*,F6. 3,* IS AT OR BEYOND STALL.*/) 

CALL IBI (6*CLMAXO*9,OELALO,6*CLARAY»IORDER,IPT*CLMAX. 
1DELALP*CL,IERR) 

IPT ( 1 ) = -1 
48 CONTINUE 

IF (ALPHA. LT. 8.0) GO TO 50 

CALL I UN I (11*11* ALPHAO* 1 »CDARAY» I ORDER* ALPHA »OELCD* IPT » IERR) 
CD= CDINPUT +DELCD 
RETURN 
50 CONTINUE 
CD= CDINPUT 
RETURN 
END 


SUBROUTINE ATMOS ( ALT * RHO* SOS * TO ) 

INPUT: 

ALTITUDE IN FEET? GEOPOTENTIAL. 
output: 

T0= AMBIENT STATIC TEMPERATURE, DEG. *R, 

P0= AMBIENT STATIC PRESSURE* PSF. 

rho= ambient static density, slugs/cubic foot. 

SOS= SPtED OF SOUND IN FEET PER SECOND. 

DELTT=0.0 
XL=0 .003567 
T00=51R.69+DtLTT 
T0=T00* ( 1 .0-XL*ALT/T00) 

IF( ALT. GT. 80000.0) WRITE 300 

300 FORMAT(1HO,50H BECAUSE THE ALTITUDE IS GREATER THAN 80 000 FEET,/ 
1 6 1 H CALCULATIONS CANNOT BE CARRIED OUT WITH SUFFICIENT ACCURACY.) 
I F ( ALT.GT.36O89.0)T0=TOO*0.7S18 
P0=21 16.2* (1 .O-XL* ALT/TOO) **5.259805 

IF ( ALT. GT. 36089. 0)P0=470. 8563* (EXP ( ( 36089. 0-ALT) / (53. 3*T0) ) ) 
RHO=PO/ (53.3*3J?,2*T0) 

SOS=SqRT ( 1.4*63. 3*32. 2*T0) 

RETURN 

END 


FUNCTION MONO (M*VAR» IPOS) 

C 

C FUNCTION MONO CHECKS TO INSURE THAT THE SEQUENCE VAR IS STRICTLY 
C INCREASING. IF VaR IS A STRICTLY INCREASING SEQUENCE MONO RETURNS 
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A POSITIVE VALUE. IF VAR IS NOT A STRICTLY INCREASING SEQUENCE* 
MONO RETURNS A NEGATIVE VALUE AND THE INDEX OF VAR WHERE VAR ( N) 
WAS NOT STRICTLY INCREASING. 

M THE NUMBER OF ELEMENTS IN VAR. 

VAR— THE X ♦ Y ♦ OR Z ARRAY PASSED FROM IBI OR ITRI. 

IPOS-IPTU) »IPT(2) *OR IPT (3) . 

DIMENSION VAR(M) 


MONO= 1 
K=M-1 

DO 10 L = 1 » K 
N=L* 1 

IF (VAR(N)-VAR(L) .GT.O.JGOTO 10 
MONO=- 1 
IPOS=N 
10 CONTINUE 
RETURN 
END 


SUBROUTINE FINDER (S» VAR, IPOS »NBND* IF* I ERR) 

FINDER DETERMINES THE INDEX OF THE X,Y, OR Z ARRAY (VAR) NEAREST TO 
XOtYO, OR ZO (S)» IF S<VAR ( 1 ) OR S>VAR (NBND) lERR=-3 ON RETURN 
AND IF CONTAINS A 0 OR NBND ACCORDING TO THE SITUATION, WHILE 
IPOS RETURNS A 1 OR NBND. 

S X 0 » YO » OR ZO, 

VAR — X » Y » OR Z. 

IPOS-IPT (1) , IPT (2) , OR I PT ( 3 ) . THE INDEX OF VAR NEAREST TO S. 
NBND-THE NUMBER OF VALUES IN VAR. 


C 


IF IPOS 

IF 

VAR ( 

0 

IF 

VAR ( 

NBND 

IF 

VAR ( 

IERR-0 

IF 

VAR ( 

-3 

IF 

VAR ( 

DIMENSION 

VAR (1 ) 


1 ) fSSPVAR ( NBND ) . 

1 ) >s. 

NBND) <S. 

1 ) (o>S«VAR (NBND) . 

1)>S OR VAR(NBNDXS. 
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LOGICAL ABOVE, BELOW 
ABOVE=BELOW=. FALSE. 
IF ( IPOS .EQ. 0 ) IPOS=l 
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10 IF(S-VAR(IPOS) )20*50»30 

20 above=.true, 

IUP=IP0S 

IF (ABOVE. AND. BELOW) GOTO AO 

IP0S=IP0S-1 

IF(IPOS.GE.1>OOTO 10 

IERR=-3 

IPOS=l 

I F = 0 

RETURN 

30 8EL0W= • TRUE. 

LOW=IPOS 

IF (ABOVE. AND. BELOW)GOTO AO 
IP0S=IP0S+1 

lF(IPOS.LE.NBND)GOTO 10 
IERR=-3 
IF=IPOS=NBND 
RETURN 
A0 IPOS=LOW 

IF (ABS (S-VAR (IUP) ) .LT . ABS ( S-VAR ( LOW) )) IPOS=lUP 
50 IF=IPOS 
RETURN 
END 


SUBROUTINE LAGRAG (S»VAR1 ♦ VAR2* VAR3tO» I ORDER) 

LAGRAG CALCULATES THE LAGRANGIAN COEFFICIENTS FOR FIRST OR SECOND 

order interpolation. 

IOPDER-IORDER(l) .I0RDER(2) . OR I0RDER(3>. 

5 XO ♦ YO . OR ZO. 

Q THE LAGRANGIAN COEFFICIENTS. 

VAR 1 THE VALUE OF X.Y, OR Z AT RIGHT END POINT OF INTERVAL. 

V AR2 THE VALUE OF X,Y, OR Z AT MID-POINT OF INTERVAL ( 2-ND ORDER) 

VAR3 THE VALUE OF X*Y» OR Z AT LEFT END POINT OF INTERVAL. 

DIMENSION Q ( 3 ) 

IF ( IOROER.EQ.H) GOTO 10 

FIRST ORDER COEFFICIENTS. 

T 1 = V AR3-V AR 1 
T2=S-VAR1 
T3=S-VAR3 
0(1) =T2/T1 
0 (2) =-T3/Tl 

RETURN , _ 



onoooooooooooooooooo ooo 


i 

SECONO ORDER COEFFICIENTS. 3 

1 

10 Tl=S-VAR2 3 

T2=S-VAR1 3 

T3=S-VAR3 3 

Q(1)=T1«T2 3 

Q(2)=T3<>T2 3 - 

Q(3)=T3*T1 3 

T 1 =V AR3-VAR2 3 

T2=VAR3-VAR1 3 " 

T3=VAR2-VAR1 3 

Q<l)=Q(l)/(Tl*T2) 3 

Q(2)=Q(2>/(-Tl»T3) 3 

Q(3)=Q(3)/(T2*T3) 3 

RETURN 3 

END 3 


SUBROUTINE INDIXR(IPT,I0RDER»S»IL*IR»VAR»N) 3 

1 

indixr determines the indices of The x,y. z ARRAY passed to array VAR] 

TO BE USED IN TABLE LOOK UP. 3 

3 

JPT the x» Y. z pointer. 3 

3 

IORDER-THE ORDER of interpolation in x.y. z direction 3 

3 

s XO . YO * Zo . 3 

3 

XL -THE INDEX OF ARRAY X,Y, OR Z GIVING THE LEFT E D POINT OF 1 

the INTERVAL CONTAINING s. 3 

3 

IR THE INDEX of the x,y, or z array giving the ri ht end POINT] 

of the interval containing S. 3 

3 

VAP THE X ♦ Y ♦ OR Z ARRAY. 1 

3 

NX » NY » OR NZ. 3 

3 

DIMENSION VAR(l) 3 

C 3 

IF (S.LE.VAR(2) )GOTO 10 3 

IF(S.GE.VAR(N-1) )GOTO 20 3 

IL=IPT 3 

IF(S.LE.VAR(IPT) ) IL=IL-1 

IF( I0RDER.LT»2) GOTO 30 3 * 

IF(ABS(S-VAR(IL-1) ) .LT.ABS(S-VAR(IL*2) ) ) IL=IL-1 3 

GOTO 30 3 

10 IL=1 : 

GOTO 30 

20 IL=N-IORDER 
30 IR=IL+ I ORDER 
RETURN 
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END 


SUBROUTINE IUNI { NMAX , N, X » NTAB , Y , IORDER, XO , YO , IPT, I ERR) 
C El.l 


c* 

c» 

c» 

c« 

c» 

c* 

c* 

c* 

c» 

c* 

c* 

c* 

c* 

c* 

c» 

c* 

c* 

c* 

c» 

c* 

c* 

c» 

c* 

c* 

c* 

c» 

c» 

c» 

c» 

c* 

c* 

c* 

c» 

c* 

c* 

c* 

c» 

c* 

c# 

c* 

c* 

c* 

c* 

c* 

c* 

c* 

c» 

c* 


PURPOSE: 


use: 

parameters: 

NMAX 

N 


X 


NT AB 
Y 


IORDER 


XO 


4 

4 

SUBROUTINE IUNI USES FIRST OR SECOND ORDER « 

LAGRANGIAN INTERPOLATION TO ESTIMATE THE VALUES « 

OF A SET OF A SET OF FUNCTIONS AT A POINT XO. IUNI « 
USES ONE INDEPENDENT VARIABLE TABLE AND A DEPENDENT * 
VARIABLE TABLE FOR EACH FUNCTION TO BE EVALUATED. « 
THE ROUTINE ACCEPTS THE INDEPENDENT VARIABLES SPACED * 
AT EQUAL OR UNEQUAL INTERVALS. EACH DEPENDENT « 

VARIABLE TABLE MUST CONTAIN FUNCTION VALUES CORRES- « 
PONDING TO EACH X ( I ) IN THE INDEPENDENT VARIABLE « 

TABLE. THE ESTIMATED VALUES ARE RETURNED IN THE YO * 
ARRAY WITH THE N-TH VALUE OF THE ARRAY HOLDING THE < 
VALUE OF THE N-TH FUNCTION VALUE EVALUATED AT XO. * 

4 

4 

CALL IUNI (NMAX,N»X»NTAB*Y, IORDER ♦ X0»Y0» IPT.IERR) « 

4 

4 

4 

THE MAXIMUM NUMBER OF POINTS IN THE INDEPENDENT * 

VARIABLE ARRAY. * 

4 

THE ACTUAL NUMBER OF POINTS IN THE INDEPENDENT « 

ARRAY, WHERE N .LE. NMAX. 4 

4 

A ONE-DIMENSIONAL ARRAY, DIMENSIONED (NMAX) IN THE * 
CALLING PROGRAM, WHICH CONTAINS THE INDEPENDENT < 

VARIABLES. THESE VALUES MUST BE STRICTLY MONOTONIC. < 

4 

THE NUMBER OF DEPENDENT VARIABLE TABLES < 

4 

A TWO-DIMENSIONAL ARRAY DIMENSIONED (NMAX,NTAB) IN < 
THE CALLING PROGRAM. EACH COLUMN OF THE ARRAY 4 

CONTAINS A DEPENDENT VARIABLE TABLE < 

4 

INTERPOLATION PARAMETER SUPPLIED BY THE USER. 4 

4 

=0 ZERO ORDER INTERPOLATION: THE FIRST FUNCTION * 

VALUE IN EACH DEPENDENT VARIABLE TABLE IS * 

ASSIGNED TO THE CORRESPONDING MEMBER OF THE YO « 
ARRAY. THE FUNCTIONAL VALUE IS ESTIMATED TO « 

REMAIN CONSTANT AND EQUAL TO THE NEAREST KNOWN 4 
FUNCTION VALUE. 4 

4 

the INPUT POINT AT WHICH INTERPOLATION WILL BE « 

PERFORMED. 4 

4 
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c* 

c» 

c» 

c* 

c» 

c» 

c# 

c* 

c* 

C* 

C» 

CO 

Co 

O 

c* 

c* 

c* 

Co 

Co 

Co 

Co 

Co 

Co 

Co 

Co 

Co 

Co 

Co 

Co 

Co 

C» 

C* 

C* 

C* 

C» 

C* 

Co 

Co 

Co 

Co 

Co 

Co 

Co 

Co 

Co 

Co 

Co 


YO A ONE-DIMENSIONAL ARRAY DIMENSIONED (NTAB) IN THE « 
CALLING peogram. upon return the array CONTAINS The « 
ESTIMATED VALUE OF EACH FUNCTION AT XO. « 

« 

IPT ON THE FIRST CALL IPT MUST BE INITIALIZED TO -1 SO « 
THAT MONOTONICITY WILL BE CHECKED, upon LEAVING THE « 


ROUTINE IPT EQUALS THE VALUE OF THE INDEX OF THE X « 
VALUE PRECEDING XO UNLESS EXTRAPOLATION WAS • 

PERFORMED. IN THAT CASE THE VALUE OF IPT IS « 

RETURNED AS: « 

=0 DENOTES XO .LT. X ( 1 ) IF THE X ARRAY IS IN « 

INCREASING ORDER AND X C 1 ) ,GT . XO IF THE X ARRAY « 
IS IN DECREASING ORDER. « 

=N DENOTES XO .GT. X ( N ) IF THE X ARRAY IS IN < 

INCREASING ORDER AND XO .LT. X(N> IF THE X ARRAY * 
IS IN DECREASING ORDER. * 

( 

ON SUBSEQUENT CALLS* IPT IS USED AS A POINTER TO « 

BEGIN THE SEARCH FOR XO. * 

t 

I ERR ERROR PARAMETER GENERATED BY THE ROUTINE * 

=0 NORMAL RETURN * 

=J THE J-TH ELEMENT OF THE X ARRAY IS OUT OF ORDER * 

=-l ZERO ORDER INTERPOLATION PERFORMED BECAUSE « 

I ORDER =0. « 

=-2 ZERO ORDER INTERPOLATION PERFORMED BECAUSE ONLY 4 

ONE POINT WAS IN X ARRAY. « 

=-3 NO INTERPOLATION WAS PERFORMED BECAUSE « 

INSUFFICIENT POINTS WERE SUPPLIED FOR SECOND * 

ORDER INTERPOLATION, * 

=-4 extrapolation w<*s performed * 

* 

upon return THE PARAMETER IERR SHOULD be tested in * 
THE CALLING PROGRAM. * 

4 

REQUIRED ROUTINES NONE * 

i 

SOURCE CMPB ROUTINE MTLUP MODIFIED < 

BY COMPUTER SCIENCES CORPORATION* 

4 

LANGUAGE fortran * 

* 

4 

DATE RELEASED AUGUST 1*1973 * 

4 

LATEST REVISION AUGUST 1*1973 * 

4 


C4»4»4»4J4>4J4»4»4J'4»4»4»4»4t4»4»4*4»4»4»*4»4J4t4J4»4»4J4»4»4»4t4>4»4»tt4»4»4»4»4>4J4t4»4*4J4t4»*4»4»4»4»4»4»4»4»4*4»4J4J4»’4»4»4*4t4*»4*4H 


DIMENSION X(1)*Y(NMAX*1)*Y0(1) 


NM1=N-1 


IERR = 0 


J=1 

DELX = X (2) -X ( 1 ) 
C 
C 
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TEST FOR ZERO ORDER INTERPOLATION 



ooo oooo ooo o oo oooo ooooo 


c 1 

IF (IORDER .EQ. 0) GO TO 10 3 

IF (N.LT. 2) GO TO 20 I 

GO TO 50 1 

10 IERR=-1 1 

GO TO 30 I 

20 I ERR=-2 3 

30 DO 40 NT=1»NTAB 3 

Y0 (NT) =Y ( 1 *NT) 3 

40 CONTINUE 3 

RETURN 3 

50 IF (IPT .GT. -1) GO TO 65 1 

] 

CHECK FOR TABLE OF NODE POINTS BEING STRICTLY MONOTONIC 1 
THE SIGN OF DELX SIGNIFIES WHETHER TABLE IS IN ] 

INCREASING OR DECREASING ORDER. 3 

3 

IF (DELX .EQ. 0) GO TO 190 3 

IF (N .EQ. 2> GO TO 65 3 

CHECK FOR SIGN CONSISTENCY IN THE DIFFERENCES OF 3 

SUBSEQUENT PAIRS 

DO 60 J=2»NMl 

IF (DELX * (X (J*l)-X( J) ) ) 190,190,60 
60 CONTINUE 

IPT IS INITIALIZED TO BE WITHIN THE INTERVAL 

65 IF (IPT .LT. 1) IPT=1 

IF (IPT .GT. NMl) IPT=NM1 

IN= SIGN (1.0, DELX *( XO-X(lPT))) 

70 P= X(IPT) - XO 

IF (P* ( X ( I pT *1)- XO)) 90,180,80 
80 IPT =IPT ♦ IN 

TEST TO SEE IF IT IS NECCESARY TO EXTRAPOLATE 

IF (IPT.GT.O .AND. IPT .LT. N) GO TO 70 
IERP=-4 
I PT = 1 PT- IN 

TEST FOR ORDER OF INTERPOLATION 

90 IF (IORDER .GT. 1) GO TO 120 

FIRST ORDER INTERPOLATION 
DO 100 NT=1*NTAB 

YO (NT)=Y( IPT » NT) ♦ ( ( Y ( IPT* 1 »NT ) - Y(IPT,NT) )»(X0-X(IPT) ) )/ 

1 (X(IPT*1)-X(IPT)) 

100 CONTINUE 

IF (IERR .EQ. -4) IPT = IPT«-IN 
RETURN 
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c 

c SECOND ORDER INTERPOLATION 

C 

120 IF (N .EQ. 2) GO TO 200 

C 

C CHOOSING A THIRD POINT SO AS TO MINIMIZE THE DISTANCE 

C BETWEEN THE THREE POINTS USED TO INTERPOLATE 

C 

IF (IPT .EQ. NM1) GO TO 140 
IF (IPT .EQ. 1) GO TO 130 

IF (DELX *(X0-X (IPT-1) ) .LT.DELX* (X ( IPT+Z) -X0) > GO TO 140 

130 L= I PT 

GO TO 150 
140 L= IPT -1 
150 V1=X(L)”X0 

V2=X(L+1)-X0 
V3=X (L+2) -X0 
DO 160 NT = 1 ♦ NT A0 

YY1= ( Y (L»NT) * V2 - Y(L+1»NT> * V1)/(X(L*1) - XCL)) 
YY2=(Y(L+1*NT)*V3-Y(L+2*NT) *V2)/(X (L+2J-X (L+l) ) 

160 Y0(NT)=(YY1*V3 -YY2»Vl)/(X(L + 2)-X(L)) 

IF (IERR .EQ. -4) IPT=IPT + IN 
RETURN 

180 IF (P ,NE. 0) IPT=IPT +1 
DO 185 NT=1*NTA8 
Y 0 ( NT ) =Y ( I PT * NT ) 

185 CONTINUE 

RETURN 
C 

c IFRR IS SET TO THE SUBSCRIPT OF THE MEMBER OF THE TABLE 

C WHICh IS OUT OF ORDER 

C 

190 IERR=J +1 
RETURN 

200 I ERR=-3 
RETURN 
END 
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Figure 3.- Data points in lift coefficient table for 16-504, 

revised program. 
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Figure 5.- Data points In drag coefficient table for 16-504, 

revised program. 
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Figure 6.- Data points in angle of attack table for 16-504, 

revised program. 




Figure 7. - Program Flowchart 
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